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Preface 


This  volume  contains  the  code  for  Air  Force  Institute  of  Technology  Thesis 
numbered  AFIT/GSE/ENY/95D-1.  The  code  was  written  in  Matlab®  version  4.2  and  was 
used  with  Simulink™  version  1.3c.  and  run  on  PCs  and  a  Sun  SPARC  station  2.  The 
code  simulated  the  launch  of  a  shoulder  launched  line-of-sight  missile  at  a  C/KC-135 
aircraft  on  takeoff  which  tried  to  defeat  the  missile  by  using  a  kinetic  kill  device. 


I.  Overview 


The  Aircraft-Missile  Engagement  (ACME)  simulation  is  a  digital  simulation 
written  in  Simulink  version  1.3c  for  Matlab  4.2.  The  simulation  represents  the  launch  of 
a  C/KC-135  aircraft  the  launch  of  shoulder  launched  missile  with  line-of-sight  guidance, 
and  the  attempt  to  intercept  the  incoming  missile  by  a  kinetic  kill  projectile  launched 
from  the  aircraft.  The  simulation  provides  engagement  information  such  as  proximity  of 
the  missile  to  the  aircraft,  probability  of  killing  the  missile  (PK),  etc. 

The  simulation  began  at  rotation  of  the  aircraft  on  the  runway.  After  a  randomly 
generated  amount  of  waiting  time,  a  missile  was  launched  from  a  random  position 
relative  to  the  runway.  The  aircraft  then  detected  the  missile  at  a  random  time  after 
missile  launch  specified  by  random  distributions  which  were  dependent  on  the  detector. 

If  the  detection  system  was  simply  a  detector,  an  expendable  was  launched  to  the  center 
of  the  quadrant  in  which  the  missile  was  detected  at  a  time  which  an  average  missile 
would  take  to  reach  the  aircraft.  Since  the  detector  had  no  ranging  capability,  a  best  guess 
for  impact  time  was  the  optimal  solution  for  launch  timing.  If  the  system  had  a  tracking 
system,  the  system  launched  an  expendable  toward  the  missile  at  the  angle  specified  by 
the  tracker.  The  timing  for  expendable  launch  was  determined  by  the  time  the  missile 
was  expected  to  reach  the  lethal  distance  plus  a  safety  factor.  The  accuracy  of  the  launch 
time  depended  on  the  range  and  velocity  accuracy  of  the  tracking  system.  If  multiple 
expendables  were  to  be  launched,  the  expendables  were  launched  at  specified  intervals. 
After  a  set  time,  the  expendable  expanded  into  their  operational  mode.  If  the  missile 
came  within  the  kill  radius  of  the  expendable,  a  probability  of  kill  was  determined  on  how 


close  the  missile  came  to  the  center  of  the  expendable.  For  this  simulation,  any 
probability  of  kill  was  considered  a  missile  kill.  If  the  missile  did  not  come  within  the 
kill  radius  of  the  expendable,  the  simulation  continued  until  the  missile  hit  the  aircraft  or 
the  25  second  time  limit  was  reached,  signifying  the  missile  missed  the  aircraft. 
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11.  Simulink  Description 


Simulink  is  a  discrete  simulation  environment  which  uses  integration  methods  to 
approximate  system  parameters  for  a  system  at  a  specified  time  interval.  There  are 
several  integration  methods  which  can  be  used.  ACME  uses  the  linsim  (linear  simulation) 
integration  method. 

Simulink  simulations  are  constructed  using  graphical  blocks  which  are  drawn 
from  a  standard  Simulink  library.  The  simulation  has  many  defined  function  blocks  as 
well  as  a  ‘Matlab  Function’  block  so  custom  Matlab  functions  can  be  used.  Variables  can 
enter  the  simulation  workspace  from  the  Matlab  environment  at  the  beginning  of  the 
simulation  by  using  an  input  block.  These  input  variables  cannot  be  changed  throughout 
the  simulation  and  only  the  value  when  the  simulation  is  begun  will  be  used.  Variables 
can  also  be  sent  back  to  the  Matlab  workspace  by  using  the  appropriate  output  block. 
These  variables  are  returned  in  the  form  of  a  vector,  with  each  row  representing  a 
simulation  time  hack.  For  example,  if  a  simulation  runs  for  ten  seconds  at  one  second 
intervals,  an  output  variable  will  have  eleven  rows,  with  the  first  row  being  the  initial 
condition.  All  variables  not  already  in  the  Matlab  workspace  before  the  simulation  is  run 
or  sent  to  the  workspace  by  the  appropriate  block  are  considered  local  to  the  simulation 
and  are  erased  when  the  simulation  ends.  This  included  variables  which  are  created  in 
Matlab  function  blocks  within  the  simulation. 

The  exception  to  the  above  rules  are  variables  which  are  declared  global.  These 
variables  can  be  changed  and  used  from  the  Matlab  workspace  within  the  simulation  and 
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do  not  gain  a  new  row  every  time  interval.  Using  global  variables  should  be  avoided 
when  possible,  however,  because  such  variables  require  considerable  overhead  in  order  to 
incorporate  them  into  the  simulation,  increasing  run  time. 

This  vague  description  of  Simulink  has  left  out  many  details  and  capabilities 
which  will  become  evident  in  the  discussion  of  the  ACME  simulation. 
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HI.  S.m 


The  simulation  was  initiated  from  a  Matlab  m-file,  which  is  a  script  file  of  Matlab 
commands,  called  S.m.  This  file  contained  system  parameters  which  were  changed  often. 
For  example,  when  a  sensitivity  analysis  was  done  on  the  effect  of  wash  noise  on  PK,  the 
wash  noise  parameters  were  put  into  S.m  for  easy  access.  This  file  was  run  by  typing  ‘S’ 
and  pressing  return  at  the  Matlab  prompt  while  in  the  directory  of  all  of  the  ACME  files. 
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IV.  Newmess.m 


Newmess.m  was  then  called  from  S.m.  Newmess.m  contained  all  of  the  system 
parameters  which  were  rarely  changed.  If  a  analysis  were  to  be  done  which  called  for  a 
parameter  to  be  changed  often,  it  would  have  been  moved  to  S.m.  Likewise,  if  a 
parameter  in  S.m  was  not  going  to  change  often,  it  was  moved  back  into  the  appropriate 
area  in  newmess.m  in  order  to  keep  S.m  simple. 

The  parameters  in  newmess.m  were  organized  by  system  or  function.  The  global 
variables  were  declared  first.  Global  variables  were  used  for  three  processes:  expendable 
trajectory  look-up  table  calculation,  prevention  of  redundant  trajectory  calculation,  and 
recording  the  expendable  launch  time.  These  variables  will  be  discussed  further  in  the 
Inchtraj.m  discussion. 

The  Scenario,  Missile,  and  PJC  parameters  were  next,  followed  by  the  tracker 
information.  The  tracker  parameters  which  changed  according  to  the  tracker  used  were 
put  into  tracker.m  due  to  the  larger  number  of  trackers  which  were  used  in  the  different 
stages  of  the  Systems  Engineering  process.  The  expendable  launch  and  launch  timing 
were  then  followed  by  the  expendable  parameters.  The  look-up  tables  for  the  launch 
angles  and  timing  were  put  into  e.xpdata.m  due  to  their  large  size.  Other  expendable 
characteristics  were  put  into  expdatal.m  due  to  the  large  number  of  expendables  which 
were  eventually  developed.  The  rest  of  newmess.m  was  put  into  a  loop  to  allow  for 
Monte  Carlo  simulation  runs.  The  parameters  generated  within  the  loop  were  generated 
randomly  for  each  simulation  run.  The  actual  scenario  parameters  and  detection  timing 
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were  random  processes,  as  were  the  noise  which  was  put  into  the  different  system 
functions. 

Once  all  of  the  parameters  were  initialized,  the  simulation  was  run  for  a  maximum 
of  25  seconds  with  a  time  interval  of  0.001  seconds.  The  simulation  was  designed  to  end 
when  the  expendable  hit  the  missile  or  the  missile  was  within  the  lethal  distance.  If  the 
simulation  ran  the  full  25  second,  the  missile  missed  the  aircraft. 

After  the  simulation  was  complete,  the  appropriate  data  was  recorded  by  running 
records.m  or  recordm.m,  depending  on  whether  single  or  multiple  expendable  where 
launched.  Likewise,  the  scenario  was  graphed  by  plotits.m  or  plotitm.m. 
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V.  Single  Expendable  Launch  Simulation  -  Acmeblck.m 


The  Simulink  block  diagram  for  the  ACME  simulation,  single  expendable  launch, 
was  acmeblck.m.  The  block  diagram  for  a  multiple  expendable  launch  was  acmeblcm.m. 
These  were  viewed  and  edited  by  running  Simulink  (typing  ‘simulink’  and  pressing  enter 
at  the  Matlab  prompt)  and  then  loading  the  appropriate  file. 

ACME  was  broken  into  modularized  blocks.  Each  block  is  described  below. 

5.1  A/C 

Inputs: 

Time 

Outputs: 

Aircraft  velocity 
Aircraft  position 

This  block  simulated  the  movement  of  the  aircraft.  The  climb  angle  was  specified 
as  being  constant,  but  had  Gaussian  noise  added  to  it  with  a  specified  standard  deviation. 
This  noise  was  filtered  to  give  a  smooth  appearance  and  the  noise  value  changed  every 
.25  seconds.  The  velocity  was  also  specified  as  being  constant  and  had  Gaussian  noise, 
but  the  noise  value  only  changed  every  second. 

The  aircraft  ideally  had  no  lateral  (y-axis)  movement,  but  it  was  added  as 
Gaussian  noise  which  was  updated  every  second  in  addition  to  a  constant  cross-wind. 

This  movement  was  simply  in  position  and  the  lateral  velocity  was  assumed  to  be  zero. 
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The  velocity  was  simply  the  integral  of  the  x  and  z  positions  over  time. 


5.2  MissilejControl 
Inputs: 

A/C  position  (x,y,z) 

Missile  position  (x,y,z) 

Missile  Range  from  launch  point 
Time 
Outputs: 

sin  component  of  missile  position 
cos  component  of  missile  position 

This  block  controlled  the  line  of  sight  logic  for  controlling  the  missile.  The 
aircraft  was  seen  as  a  point  mass  and  the  missile  targeted  that  point.  The  angle  between 
the  aircraft  and  the  missile  was  calculated  and  entered  in  to  the  control  loop.  Angular 
Gaussian  noise  was  also  added  since  the  missile  does  not  know  exactly  where  the  aircraft 
was  located.  This  noise  was  filtered  and  changed  every  0. 1  seconds.  The  control  loop 
then  generated  the  thrust  angle  needed  to  minimize  the  angle  between  the  missile  and  the 
aircraft  in  the  plane  formed  from  a  line  from  the  launch  point  to  the  missile  and  a  line 
from  the  launch  point  to  the  aircraft.  Gaussian  noise  was  added  to  this  thrust  angle  to 
simulate  imperfections  in  the  control  surfaces  and  command  signals  of  the  missile.  The 
velocity  profile  for  the  missile  was  derived  from  a  standard  thrust  profile  for  a  shoulder 
launched  missile:  rise  to  3600N  in  the  first  .6  seconds,  maintain  thrust  until  2  seconds 
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after  launch,  and  fall  to  thrust  needed  to  maintain  constant  velocity  (lOOON)  until  8 
seconds  after  launch.  The  m-files  which  were  used  are  misslego.m,  relanglr.m,  testnan.m, 
and  testzero.m. 

5.2.1  Misslego.m  This  function  provided  the  velocity  profile  for  the  missile. 

The  velocity  was  a  function  of  the  time  since  naissile  launch. 

5.2.2  Relanglr.m  This  function  computed  the  relative  angle  between  the  line-of- 
sight  and  the  bearing  to  the  aircraft.. 

5.2.3  Testnan.m  This  function  checked  to  see  if  the  input  was  zero,  infinity,  or 
not  a  number  (NaN).  If  so,  it  returned  a  zero.  Otherwise  it  returned  the  input  value. 

5.2.4  Testzero.m  This  function  checked  to  see  if  a  number  was  zero.  If  so,  it 
raised  it  above  zero.  Otherwise,  it  returned  the  input  value.  This  prevented  dividing  by 
zero. 

5.3  Missilexyz 

Inputs: 

A/C  position  (x,y,z) 

sin  component  of  missile  position 

cos  component  of  missile  position 

Outputs: 

Missile  position  (x,y,z) 

This  block  took  the  output  from  the  control  loop  and  calculated  the  new  missile 
location  coordinates  relative  to  the  launch  point.  It  used  the  m-file  divplus.m. 
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5.3.1  Divplus.m  This  function  simply  divided  two  numbers.  If  the  result  was  not 
a  number  (NaN)  or  infinity,  a  zero  was  returned. 

5.4  Missile_Range 

Inputs: 

Missile  position  (x,y,z) 

Outputs: 

Missile  range  from  launch  point 

This  block  calculated  the  missile  range  from  launch  point  for  input  into  the 
control  loop. 

5.5  Hit  Check 

Inputs: 

kJC  position  (x,y,z) 

Missile  position  (x,y,z) 

Outputs: 

Flag  to  end  simulation 

This  block  calculated  the  distance  between  the  missile  and  distinct  parts  of 
the  aircraft.  It  could  have  then  ended  the  simulation  if  the  missile  came  within  a  specified 
distance  of  any  of  the  areas.  If  the  missile  was  within  the  specified  distance,  a  flag 
telling  which  area  was  hit  would  have  been  set  and  the  simulation  would  end..  For  this 
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simulation,  only  the  distance  to  the  center  of  gravity  of  the  aircraft  was  measured  and 
could  register  as  a  hit. 

5.5.1  Ifend.m  This  function  performed  all  of  the  functions  of  the  HitCheck 

block. 

5.6  MissileVel_Seen_by_A/C 

Inputs: 

A/C  velocity  (z,x) 

Missile  position  (x,y,z) 

Outputs: 

Relative  velocity  of  missile  as  seen  by  the  aircraft 
This  block  took  the  derivative  of  the  missile’s  position  to  get  a  velocity  along  each 
axis  and  subtracted  that  from  the  aircraft  velocity  along  each  axis.  The  magnitude  was 
taken  to  get  a  true  closing  velocity  of  the  missile.  Gaussian  noise  was  then  added  to  this 
velocity  to  simulate  the  uncertainty  the  tracking  system  has  in  the  measurement  of  the 
missile  velocity.  The  standard  deviation  of  this  noise  is  a  tracking  system  parameter.  The 
noise  was  filtered  and  changed  every  0.25  seconds 

5. 7  Relative_angles_and_range 

Inputs: 

A/C  position  (x,y,z) 

Missile  position  (x,y,z) 
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Outputs: 

A/C-missile  azimuth 
A/C-missile  elevation 
A/C-missile  slant  range 

This  block  calculated  the  relative  azimuth  and  elevation  angles  from  the  aircraft  to 
the  missile.  Zero  degrees  represents  forward  and  above  the  aircraft,  respectively.  The 
slant  range  to  the  missile  was  also  calculated. 

5.7.1  Acmangle.m  This  function  performed  all  of  the  function  of  the 
Relative  jangle  s_and_range  block. 

5.8  Quad_data 
Inputs; 

A/C-missile  azimuth 
Outputs: 

Time  for  expendable  to  reach  lethal  distance  from  A/C 
Launch  delay  for  expendable 

This  block  was  used  to  develop  the  expendable  launch  timing  for  the  detector 
which  has  virtually  no  range  information  on  the  missile.  First,  the  block  determined 
whether  the  shot  came  from  the  front  or  rear  quadrant.  The  closing  velocity  and  distance 
of  the  missile  was  then  estimated  using  the  probability  distributions  as  to  when  and  from 
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where  the  missile  would  be  launched.  The  launch  delay  was  the  estimated  distance 
divided  by  the  estimated  velocity.  This  obviously  is  very  imprecise,  but  with  no  range  or 
velocity  information  of  the  missile,  it  is  the  best  that  can  be  done. 

5.9  Fire_timing 
Inputs: 

A/C-missile  azimuth 

A/C-missile  slant  range 

A/C-missile  relative  velocity  as  seen  by  the  A/C 
Outputs: 

Firing  Flag 

This  block  determined  when  to  launch  the  expendable  when  there  was  a  tracking 
system  on  the  aircraft.  First,  Guassian  noise  was  added  to  the  true  slant  range  of  the 
missile  from  the  aircraft  since  there  is  uncertainty  in  the  missile  range  by  the  tracking 
system.  The  standard  deviation  of  this  noise  was  a  tracking  system  parameter.  The  noise 
was  filtered  and  changed  every  0.25  seconds.  This  range  estimate  was  used  with  the 
missile  closing  velocity  estimate  to  calculate  an  estimated  time  for  the  missile  to  come 
within  the  lethal  distance.  Once  this  time-to-impact  equaled  the  time  needed  to  get  the 
expendable  outside  the  lethal  distance  plus  a  safety  factor,  a  flag  was  set  to  launch  the 
expendable. 
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5.10  Launch  data 


Inputs: 

Missile  theta  (azimuth) 

Missile  phi  (elevation) 

Outputs: 

Launch_data  information  vector 

This  block  created  a  vector  of  information  needed  in  the  Launch  block.  The  vector 
included  the  missile  elevation  relative  to  the  aircraft,  the  true  missile  azimuth  relative  to 
the  aircraft,  the  time  needed  for  the  expendable  to  reach  the  missile’s  lethal  distance  from 
the  aircraft,  the  launch  elevation  and  the  launch  azimuth.  The  time  needed  for  the 
expendable  to  reach  the  lethal  distance,  as  well  as  the  launch  azimuth  and  elevation  were 
found  from  a  look-up  table  which  was  created  before  the  simulation  was  run.  This  was 
done  because,  even  with  the  assumption  of  a  constant  target  elevation  of  93. 12  degrees 
(see  Vol.  1  Appendix  E),  the  calculations  needed  to  calculate  the  time  to  target  and  the 
needed  launch  azimuth  and  elevation  were  very  time  consuming.  By  calculating  them 
before  simulation  run  time,  the  time  needed  to  run  the  simulation  was  reduced 
dramatically.  The  target  azimuth,  which  ideally  would  be  the  azimuth  at  which  the 
missile  reaches  the  lethal  distance,  had  a  Guassian  noise  factor  added  to  simulate  the 
tracking  error.  The  standard  deviation  of  this  noise  was  a  system  parameter  for  the 
tracking  system.  This  noise  factor  was  filtered  and  changed  every  0.25  seconds. 
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5.11  Launch 


Inputs: 

Quadrant  Launch  time-to-target  (detector  only) 

Quadrant  Launch  delay 

Time 

Fire  Flag 

A/C  position  (x,y,z) 

A/C  velocity  (z,x) 

Launch_Data 

Outputs: 

Operational  Time 
Launch  Flag 

This  block  generated  the  expendable  trajectory  for  the  time  between  launch  and 
when  the  expendable  became  operational  (was  expelled  from  launch  casing  and 
expanded).  Due  to  the  dynamics  of  the  expendable,  there  was  no  easy  way  to  generate  the 
trajectory  real-time.  As  a  result,  the  aircraft  position  and  velocity  were  fed  in  as  initial 
conditions  to  the  launch  of  the  expendable.  A  differential  equation  solver  (ODE23)  was 
then  used  to  generate  the  coordinates  of  the  expendable  throughout  its  launch  trajectory. 

When  the  launch  trajectory  was  calculated,  a  flag  was  set  to  tell  the  simulation 
that  the  expendable  had  been  launched.  Also,  the  time  at  which  the  expendable  was  to 
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become  operational  was  determined.  The  majority  of  the  calculations  were  done  in 
Inchtraj.m. 

5.11.1  Lnchtraj.m  This  function  calculated  the  trajectory  and  velocity  of  the 
expendable  when  it  was  launched  and  was  still  in  the  launch  canister.  Once  the  global 
time  reached  the  launch  time,  the  position  and  velocity  of  the  aircraft  were  used  to 
calculate  the  trajectory  for  the  expendable  using  the  expendable  characteristics.  The 
launch  time  was  determined  by  block  Fire_timing  if  a  tracker  was  used  or  block 
Quadjdata  if  only  a  detector  was  used.  The  trajectory  of  the  expendable  was  performed 
using  ODE23  which  referenced  the  equations  in  dqxyz.m.  A  characteristic  of  the  ‘linsim’ 
method  of  simulation  in  Simulink  was  that  all  functions  are  run  twice.  This  was  no 
problem  for  the  majority  of  functions,  but  since  the  ODE23  equation  solve  required 
several  minutes  for  calculation,  the  simulation  time  was  drastically  increased.  To 
prevent  this,  a  global  variable  (onceitl)  was  used  to  serve  as  a  flag  to  tell  the  function  not 
to  re-calculate  the  trajectory.  The  results  were  stored  in  global  variables  exppvx,  exppvy, 
exppvz.  These  variables  were  matrices  with  the  first  row  being  a  time  index,  the  second 
row  a  position  value,  and  the  third  row  a  velocity  value.  These  matrices  were  then 
interpolated  by  the  simulation  to  find  the  expendable  position.  The  only  way  to  perform 
these  calculations  and  be  able  to  use  the  values  later  in  the  simulation  was  to  makes  the 
matrices  global. 

No  noise  is  entered  into  the  expendable  trajectory  in  this  function.  A  flag  is  set 
for  each  expendable  from  -1  to  1  when  the  expendable  is  launched. 


17 


5.12  Go _ope rational 
Inputs: 

Time 

Operational  Time 

Expendable  position/velocity 
Outputs: 

Operational  flag 

This  block  similar  purpose  to  that  of  Launch.  This  block  calculated  the 
expendable  trajectory  after  the  expendable  became  operational.  Once  the  time  for  the 
expendable  to  become  operational,  ODE23  was  used  to  calculated  the  expendable 
trajectory  for  its  operational  duration  given  the  expendable  position  and  velocity  as  initial 
conditions.  Again,  a  variable  flag  (onceito)  was  used  to  prevent  redundant  trajectory 
calculations.  A  flag  was  set  to  signal  the  simulation  when  the  expendable  became 
operational  and  again  when  it  was  no  longer  effective  or  operational.  The  majority  of  the 
calculations  were  done  in  gtoptraj.m. 

5.12.1  Gtoptraj.m  This  function  calculated  the  trajectory  and  velocity  of  the 
expendable  once  it  was  operational.  Once  the  global  time  reached  the  operational  time, 
the  position  and  velocity  of  the  expendable  were  used  to  calculate  the  trajectory  for  the 
expendable  using  the  new  expendable  characteristics.  This  was  done  using  ODE23 
(referencing  the  equations  in  dqxyzopr.m)  in  the  simulation  so  again,  a  global  variable 
(onceito)  was  used  to  prevent  the  calculation  from  happening  twice.  The  results  were 
stored  in  global  variables  exppvxopr,  exppvyopr,  exppvzopr. 
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No  noise  was  entered  into  the  expendable  trajectory  in  this  function.  A  flag  was  set  from 
-1  to  1  for  the  expendable  when  it  went  operational  and  from  1  to  100  when  it  was  no 
longer  operational. 

5.13  Expendable 
Inputs: 

Missile  position  (x,y,z) 

Exppos  output 
Launch  Flag 
Operational  Flag 
Time 

Expendable  Effective  Radius 
Outputs: 

Expendable  x,y,z  position 

Expendable  position/velocity  (x,vx,y,vy,z,vz,) 

PK 

Stop  Flag 

Mexslantrange  (slant  range  between  expendable  and  missile) 

Exppos  inputs 

This  block  checked  to  see  if  the  expendable  destroyed  the  missile.  Until  the 
expendable  was  launched,  it  was  assumed  to  be  located  at  the  launch  point  of  the  missile. 
This  was  done  for  simplicity  since  that  location  is  (0,0,0)  in  the  Cartesian  coordinates. 
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Once  the  expendable  became  operational,  the  slant  range  to  the  missile  was  checked  to 
check  if  the  expendable  destroyed  the  missile.  This  was  done  in  mexphit.m. 

5.13.1  Mexphit.m  This  function  was  used  to  determine  if  the  missile  hit  an 
operational  expendable.  It  used  the  slant  range  between  the  missile  and  the  expendable  in 
comparison  with  the  effective  radius  of  the  expendable.  If  the  slant  range  was  less  than 
the  radius,  it  was  considered  a  hit.  The  resulting  PK  (probability  of  Kill)  was  determined 
by  how  close  the  missile  was  to  the  center  of  the  expendable.  A  PK  of  .1  indicated  the 
missile  hit  the  outer  edge  while  a  PK  of  1  indicated  the  missile  hit  very  close  to  the 
center.  After  the  operational  duration  of  the  expendable,  it  could  no  longer  destroy  the 
missile. 

The  simulation  ended  if  the  slant  range  between  the  missile  and  the  expendable 
began  to  increase  (the  PK  could  never  have  gotten  better)  or  if  the  expendable  exceeded 
its  operational  time  while  the  missile  was  within  range  (again,  the  PK  could  not  have 
gotten  any  better).  This  must  be  kept  in  mind  when  analyzing  the  data  for  simulations 
with  multiple  expendables.  The  simulation  ended  when  it  achieved  the  highest  PK  it 
could  have  for  the  first  expendable  it  hit.  This  gave  a  deceiving  PK  since  the  missile  may 
have  hit  other  expendables  and  received  a  better  PK  had  the  simulation  been  allowed  to 
progress. 

5.14  Exppos.m 

This  function  returned  the  position  and  velocity  of  the  expendable.  Until  launch, 
the  expendable  position  was  (0,0,0)  and  the  velocity  in  all  directions  equal  to  zero.  Once 
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launched  the  expendable  position  was  interpolated  from  the  position/velocity  matrix 
formed  in  Inchtraj.m  plus  a  noise  position.  This  noise  was  used  to  simulated  the  virtually 
unpredictable  changes  in  position  due  to  the  wash  from  the  aircraft.  A  Guassian  noise 
generator  created  noise  component  in  all  three  directions  for  the  first  0.05  seconds  after 
launch.  The  standard  deviation  for  these  noise  components  could  be  specified 
independently.  The  change  in  position  due  to  noise  was  cumulative,  i.e.  the  noise  a  new 
noise  component  was  added  to  the  old  noise  component  at  each  time  step.  After  the  0.05 
seconds  had  elapsed,  the  noise  component  remained  constant  and  the  calculated  trajectory 
was  modified  by  the  constant  noise  offset  until  the  expendable  becarrie  operational.  This 
noise  offset  was  then  also  in  the  calculations  for  the  expendable  once  it  became 
operational.  Once  the  expendable  became  operational,  the  results  from  gtoptraj.m 
specified  the  expendable  trajectory  until  the  simulation  ended.  There  were  no  checks 
built  in  to  prevent  the  expendable  from  going  underground  since  that  was  irrelevant. 


VI.  Multiple  Expendable  Launch  Simulation  -  Acmeblcm 

This  was  the  same  simulation  as  acmeblcLm  except  that  seven  expendable  were 
launched  instead  of  a  single  one.  To  allow  this,  six  more  Expendable  blocks  were  added, 
the  Launch  block  was  changed  to  Launchjnultiple,  the  Go_ope rational  block  was 
changed  to  Gojoperationaljnultiple,  and  Expposl-7  function  blocks  were  added. 

6.1  Launchjnultiple 
Inputs: 

Quadrant  Launch  time-to-target  (detector  only) 

Quadrant  Launch  delay 

Time 

Fire  Flag 

A/C  position  (x,y,z) 

A/C  velocity  (z,x) 

Launch_Data 

Delay  between  expendable  launches 
Outputs: 

Operational  Time 
Launch  Flag 


This  block  performed  essentially  the  same  function  as  the  Launch  block  except  for 
the  fact  that  trajectories  for  the  seven  expendables  were  calculated  at  an  interval  set  in 
expdatal.m.  Likewise,  seven  launch  flags  and  operational  times  were  used. 

6.1.1  Lnchtram.m  This  function  performed  all  of  the  functions  for  the 
Launchjnultiple  block. 

6.2  Go_ope rational 

Inputs: 

Operational  times  (1-7) 

Time 

Expendable  positions/velocities  (1-7) 

Outputs: 

Operational  flags  ( 1-7) 

This  block  performed  essentially  the  same  function  as  the  Go_operational  block 
except  for  the  fact  that  seven  operational  time  were  entered,  seven  expendable  initial 
condition  were  entered,  seven  trajectories  were  calculated,  and  seven  operational  flags 
were  set. 

6.2.1  Gtoptram.m  This  function  performed  all  of  the  functions  of  the 
Go_operational_-multiple  block. 
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6.3  Expposl-7.m 

These  blocks  served  the  same  purpose  for  the  individual  expendables  as  exppos.m 
did  for  the  single  expendable.  The  only  difference  between  them  was  the  names 
specifying  the  position/velocity  matrices. 
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VII  Extras 


7.1  Getit.m 

This  function  was  used  to  calculate  the  look-up  tables  for  phi  launch,  theta  launch, 
and  time-to-target  for  the  different  expendables.  Since  the  equations  are  so  complex,  it 
was  impossible  to  implement  them  real-time  into  the  simulation.  The  goal  of  the 
simulation  was  to  be  able  to  place  the  expendable  at  a  certain  location  on  the  sphere 
around  the  aircraft.  This  point  was  referenced  using  phi  and  alpha.  This  was  very 
difficult  because  the  magnitude  and  duration  of  the  thrust  could  vary,  phi  and  theta  could 
vary,  and  so  could  the  time  to  get  it  to  the  point.  The  result  was  a  very  complex  dynamic 
equation.  It  was  determined  that  since  99%  of  the  missiles  entered  the  sphere  within  1 .5 
degrees  of  phi=93. 12.  The  target  phi  was  set  constant  at  93. 12.  Obviously  this  is  not  the 
ideal  situation  to  maximize  the  probability  of  hitting  the  missile  but  it  was  necessary  in 
order  to  continue  with  the  simulation.  With  Phi  constant,  theta  and  time-to-target  were 
the  only  true  variables  and  the  launch  phi,  and  theta  and  time-to-target  could  be 
calculated  using  the  ODE23  function.  Since  the  climb  angle  and  aircraft  velocity  were 
assumed  constant,  these  could  be  computed  prior  to  simulation  and  put  in  a  look-up  table. 
This  greatly  decreased  the  run-time  of  the  simulation. 

The  expendable  parameters  were  easily  entered  into  the  code  and  the  results  were 
put  into  a  file  labeled  ‘outlaunc.txf . 
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7.2  Decodefl.m 

This  m-file  allowed  the  user  to  easily  extract  the  Probability  of  Kill  from  a  series 
of  simulation  runs.  This  considered  the  missile  dead  if  it  hit  any  part  of  the  expendable. 
The  data  from  the  simulation  actually  gave  a  range  from  0  to  1  for  each  simulation 
depending  on  far  from  center  of  the  expendable  the  missile  was  when  it  hit  (i.e.  0.1  means 
it  hit  near  the  edge  &  1  means  it  hit  very  close  to  center).  With  the  multiple  shot,  the  hit 
check  used  a  radial  distance  from  the  center  of  each  expendable  so  it  may  have  appeared 
to  have  hit  multiple  expendables. 

To  use  this  file,  the  data  files  were  put  in  the  same  directory  as  this  file,  listed 
them  in  the  ‘infile’  variable,  and  the  number  of  files  to  be  read  was  specified.  All  files 
names  in  each  variable  had  to  be  of  the  same  length. 


26 


VIII  Limitations 


8.1  Reduced  Probability  of  Kill  Due  to  Setting  Target  Elevation  as  Constant 

As  mentioned  earlier,  the  target  elevation  was  assumed  to  be  a  constant  93.12° 
(reference  Vol.  I,  Appendix  E).  Although  this  elevation  was  very  close  to  the  true 
elevation  of  the  missile  when  it  reached  the  lethal  distance,  the  accuracy  of  the  system  did 
not  reach  its  full  potential.  If  a  closed  form  solution  of  efficient  algorithm  were 
discovered  which  would  allow  the  system  to  solve  for  a  variable  elevation,  azimuth,  and 
time-to-target  during  the  simulation,  the  accuracy,  and  therefore  PK,  could  be  improved. 

8.2  Missile  Destruction  Check  Accuracy 

Since  the  3-dimensional  slant  range  was  used,  it  was  theoretically  possible  for 
mexphit.m  to  register  a  hit  when  the  missile  would  not  hit  the  expendable  in  the  real 
world.  In  one  time  period,  the  slant  range  between  the  missile  and  the  center  of  the 
expendable  could  have  been  less  than  the  radius  of  the  expendable  if  the  expendable  was 
directly  in  front  of  the  missile.  On  the  next  time  step,  however,  if  the  expendable  was 
falling  fast  enough,  it  could  have  been  out  of  the  path  of  the  missile.  For  this  to  have 
occurred  the  expendable  would  have  had  to  fall  extremely  fast,  which  was  not  the  case 
with  any  of  the  expendables  used  in  this  simulation.  Still,  this  must  be  kept  in  mind  when 
developing  other  expendables. 
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8.3  Reliability  of  Systems  Not  Included 

The  simulation  lacked  the  realism  of  having  reliability  issues  affect  the  outcome 
of  the  simulation  scenario.  In  this  simulation,  the  missile  was  assumed  to  always  function 
properly  and  be  able  to  maintain  lock.  On  the  other  hand,  the  kinetic  kill  system  was  also 
assumed  to  function  properly.  These  assumptions  were  made  due  to  the  fact  the  effects  of 
the  reliability  issues  could  be  determined  outside  the  simulation  using  probability  and 
statistical  methods.. 

8.4  Discrete  Noise 

The  noise  in  this  simulation  was  assumed  to  be  Gaussian,  which  is  not  always  an 
accurate  assumption.  For  the  scope  and  purpose  of  this  simulation,  i.e.  to  compare  kinetic 
kill  systems,  the  assumptions  were  valid.  Also  true  noise  is  not  always  discrete  or  band- 
limited,  as  was  found  in  this  simulation.  This  is  a  limitation  of  discrete  simulation  which 
cannot  be  avoided. 

8.5  Aircraft  and  Expendable  Position  Noise 

The  movement  of  the  aircraft  in  the  y  direction  and  the  wash  effects  on  the 
position  of  the  launched  expendable  were  evident  only  in  position  and  had  no  effect  on 
the  velocity  of  the  objects.  The  y  axis  component  of  aircraft  velocity  would  have  so  little 
effect  on  the  system  that  it  was  ignored.  The  lack  of  velocity  changes  of  the  expendable 
due  to  wash  effects  was  a  valid  concern,  but  was  beyond  the  capability  of  the  simulation 
environment  to  adequately  model.  An  attempt  to  circumvent  this  discrepancy  was  made 
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by  making  the  noise  vector  magnitude  a  random  walk  rather  than  noise  instantaneously 
generated .  In  other  words,  each  new  noise  vector  was  added  to  the  previous  sum,  which 
amplified  the  wash  effects. 

8.6  Missile  Velocity  Profile 

The  missile  profile  used  only  velocity  information  from  a  standard  shoulder 
launch  missile  rather  than  the  thrust  information  and  missile  dynamic  characteristics. 
Although  slightly  inaccurate,  this  avoided  security  classification  and  simplified  the  model 
considerably. 


29 


APPENDIXA 


S)  8)  '^  2  §  2 

§  i  2  I  J-g. 

®  ©o  J 

1  I 

Eli  e  I’S 


<]il, 


Missile  position 
(x.y,z) 


I  shottime 
Shot  time 

detec«al  |-i 


Operational  Times 


PAGE  45 


APPENDIX  B 


^  :|c  9|e  9)C  9|(  9|C)|C  ***  9fc  )<(  )(C  )(< ****  9|(:|e  jK  3(c  :K  *  He  )|<  *  }(c>ic  >ic  :k  He 


%  File:  S.m 

%  Top  level  file  for  ACME  Simulation 
% 

%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%  Last  Updated:  31  OCT  95 


%  Function:  The  simulation  was  initiated  from  a  Matlab  m-file,  which  is  a  script  file  of  Matlab  commands, 
%  called  S.m.  This  file  contained  system  parameters  which  were  changed  often.  For  example,  when  a 
%  sensitivity  analysis  was  done  on  the  effect  of  wash  noise  on  PK,  the  wash  noise  parameters  were  put  into 
%  S.m  for  easy  access.  This  file  was  run  by  typing  'S'  and  pressing  return  at  the  Matlab  prompt  while  in  the 
%  directory  of  all  of  the  ACME  files. 


% 

^  :{c  *  :!|c  sK  *:((******  ^  ){e  )|c  :4c  :te  ^  :|c)|c  **  :>|c  ^  3|(  *  ^  3|<  Me  **  *  * 


clear; 

tracker_type=5;  %  tracker  number  (specify  characteristics  in  tracker.m) 

exp_type=9;  %  expendable  number  (specify  chracteristics  in  expdata.m  &expdatal.m) 

outfilename=  test.txt';  %  file  to  output  data  to 

multiple=0;  %  multiple  expendable  launches  (1)  or  single  launch  (0) 

washnoisestd=[5  5  5];  %  standard  deviation  of  wash  noise  on  [x  y  z]  position 
%  of  expendable 

washnoiseduration=,05;  %  time  that  wash  noise  will  affect  expendable 
runs=l;  %  number  of  time  to  runs  simulation 

newmess: 
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sK  sicfcle  *  i|c  :fe  :1c  *  i|c  ic  « 9te  ^  *  *  ♦  *  *  *  *  iK  *  :*(  ^  *  *  >((  *  *  *  *  *  i|c  *  )|e ik  * 

%  File:  newmess.m 
%  Used  in  S.m 
% 

%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 

%LastUpdated:310CT95 

% 

%  Function:  Newmess.m  is  called  from  S.m.  Newmess.m  contains  all  of  the  system  parameters  which  are 
%  rarely  changed.  If  a  analysis  were  to  be  done  which  called  for  a  parameter  to  be  changed  often,  it  would 
%  have  been  moved  to  S.m.  Likewise,  if  a  parameter  in  S.m  was  not  going  to  change  often,  it  was  moved 
%  back  into  the  appropriate  area  in  newmess.m  in  order  to  keep  S.m  simple. 

%  The  parameters  in  newmess.m  were  organized  by  system  or  function.  The  global  variables  were 
%  declared  first.  Global  variables  were  used  for  three  processes:  expendable  trajectory  look-up  table 
%  calculation,  prevention  of  redundant  trajectory  calculation,  and  recording  the  expendable  launch  time. 

%  These  variables  will  be  discussed  further  in  the  Inchtraj.m  discussion, 

%  The  Scenario,  Missile,  and  A/C  parameters  were  next,  followed  by  the  tracker  information.  The 
%  tracker  parameters  which  changed  according  to  the  tracker  used  were  put  into  tracker.m  due  to  the  larger 
%  number  of  trackers  which  were  used  in  the  different  stages  of  the  Systems  Engineering  process.  The 
%  expendable  launch  and  launch  timing  were  then  followed  by  the  expendable  parameters.  The  look-up 
%  tables  for  the  launch  angles  and  timing  were  put  into  expdata.m  due  to  their  large  size.  Other  expendable 
%  characteristics  were  put  into  expdatal.m  due  to  the  large  number  of  expendables  which  were  eventually 
%  developed.  The  rest  of  newmess.m  was  put  into  a  loop  to  allow  for  Monte  Carlo  simulation  runs.  The 
%  parameters  generated  within  the  loop  were  generated  randomly  for  each  simulation  run.  The  actual 
%  scenario  parameters  and  detection  timing  were  random  processes,  as  were  the  noise  which  was  put  into 
%  the  different  system  functions. 

%  Once  all  of  the  parameters  were  initialized,  the  simulation  was  run  for  a  maximum  of  25  seconds 
%  with  a  time  interval  of  0.001  seconds.  The  simulation  was  designed  to  end  when  the  expendable  hit  the 
%  missile  or  the  missile  was  within  the  lethal  distance.  If  the  simulation  ran  the  full  25  second,  the  missile 
%  missed  the  aircraft. 

%  After  the  simulation  was  complete,  the  appropriate  data  was  recorded  by  running  records. m  or 
%  recordm.m,  depending  on  whether  single  or  multiple  expendable  where  launched.  Likewise,  the 
%  scenario  was  graphed  by  plotits.m  or  plotitm.m. 

% 

^:|c:tc*******:lc  ******************  ****** 

timestep=.00l; 

%Define  global  variables  required  in  dqx.m-dqzt 
global  R_Thrust  PhLAngle  Theta^Angle;  %Define  global  variables  required  in  dqx.m-dqzt 
global  CD_sphere  CD_exp  S_sphere  S_exp  W^sphere  W_exp  Rho_ambient 
%Define  global  variables  containted  in  Idelay.m 

global  computation_time_required  slew_time_required  time_to_target  time_to_oper  Iaunch_delay 
% 

global  MissiIe_Thrust  M_Thrust  MThrust_Duration  Time_GIobal; 
global  CD_missile  S^missile  W_missile  shottime  xyzv; 

%Define  global  variables  used  in  exppos.m  and  Inchtraj.m 

if  multiple 

global  exppvxoprl  exppvyopri  exppvzoprl  exppvxl  exppvyl  exppvzl 
global  exppvxopr2  exppvyopr2  exppvzopr2  exppvx2  exppvy2  exppvz2 
global  exppvxopr3  exppvyopr3  exppvzopr3  exppvx3  exppvy3  exppvz3 
global  exppvxopr4  exppvyopr4  exppvzopr4  exppvx4  exppvy4  exppvz4 
global  exppvxopr5  exppvyopr5  exppvzoprS  exppvx5  exppvy5  exppvz5 
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global  exppvxoprb  exppvyoprb  exppvzoprb  exppvx6  exppvy6  exppvz6 
global  exppvxopr?  exppvyopr?  exppvzopr?  exppvx?  exppvy?  exppvz? 

else 

global  exppvx  exppvy  exppvz  exppvxopr  exppvyopr  exppvzopr 

%define  variables  needed  to  only  run  the  ode's  once  each. 

%(SIMULINK  runs  every  function  twice  but  weonly  need  the  odes  results 
%  (global)  run  once.  These  flags  help  do  this 
end 

global  onceitl  onceito  onceitm  %  initialize  flags  to  only  run  ode's  once 

global  Inchtime  Inchtimem  %  intitialize  expendable  launch  time  variables 

outfid=fopen(outfilename/w'); 


%  *******  SCENARIO  INFORMATION 

startshot=0;  %  define  smallest  angle  the  shooter  (terrorist)  may  launch  from 
coverageshot=pi;  %  define  the  angular  area  from  which  the  shooter  may  fire  (Uniform  distributed) 
rangeshot=1000;  %  defin  the  average  range  from  which  the  shooter  will  shoot  (Rayliegh  distributed) 
averageshottime=2.5;  %  define  the  average  time  after  A/C  rotation  that  the  shooter  fires  (Rayliegh  dist.) 


%  *******  MISSILE  INFORMATION 


avg_missilevel=145 1;  %Define  average  missile  velocity  (ft/sec) 
lethaldist=100;  %Define  lethal  distance  from  A/C  (ft) 

%Define  missile  variables 
Missile_Thrust=2500; 

MThrust_Duration=2; 

CD_missile=.3; 

S_missile=.7854; 

W_missile=25; 


%  *******  A/C  INFORMATION 

acclimbangle=.26;  %Define  A/C  climb  angle  (rad) 
acvel=258;  %Define  A/C  Velocity  (ft/sec) 

%  *******  DETECTOR/TRACKER  INFORMATION 
tracker;  %  see  tracker,  m 

if  multiple 

launchtime_safetyfactor=lsfm; 

else 

launchtime_safetyfactor=lsfs; 

end; 

Average_detect_dist=3637.2;  %define  average  range  of  detection  of  missile 


49 


%  *******  LAUNCH  INFORMATION 


%Define  whether  or  not  the  expendable  is  under  thrust  once  it  is  launched 
%based  on  the  folowing  three  variables.  If  the  expendable  is  under 
%thrust  once  it  is  launched,  R_Thrust  and  Tduration  will  have  values 
%other  than  zero  and  muzzle_vel  will  equal  zero.  In  contrast,  if  the 
%expendable  is  not  under  thust  after  being  launched,  R_Thrust  and  Tduration 
%will  equal  zero  and  muzzle^vel  will  equal  some  positive  value  other  than 
%zero. 

R_Thrust=0;  %Define  magnitude  of  thrust  (Ibf) 

Tduration=:0;  %Define  Duration  of  Expendable  thrust  (seconds) 
muzzle_vel=700;  %Define  Muzzle  velocity  (ft/sec) 
rear_shotJnfo=[  1 35/57.3  .144  ];  %  define  angle  and  time  to  target  for 
front_shotJnfo=[45/57.3  . 143];  %  quadrant  detector 


%  *******  LAUNCH  TIMING  INFORMATION 

%Define  computational  time  from  when  launch  is  detected  to  when 
computation_time_required=.l;  %expendable  is  launched  (seconds) 

%Define  time  required  to  slew  launcher  to  proper  launch  angles 
slew_time_required=.2;  %phi  and  theta  (seconds) 

lnchtime=100; 

lnchtimem=[100  100  100  100  100  100  lOOj; 

%  *******  EXPENDABLE  INFORMATION 

%Define  expendable  type  (l=an  expendable  with  a  constant  effective  radius,  ie 
%net,baloon,  etc.  2=expendable  with  a  decreasing  effective  radius,  ie  shot, 
%"goop",  etc. 

Rho_ambient=.002378; 

expdata;  %run  expdata.m  to  get  lookup  tables  for  expendable 
expdata  I ; 

(^3j«jJCj(e*5k*:fc*:<e*j|c*5k****>it**5K***********^**LQQp  BEGIJSJS 


for  pass=  1  :runs;  %  define  number  of  runs 

rand(’seed',pass); 

randn('seed',pass); 

%  *******  SCENARIO  GENERATION 

missiletheta=startshot+rand*coverageshot; 
missilerange=3000+sqrt(-2*((rangeshot/(sqrt(pi/2)))^2)*log(rand)); 
if  missilerange>9000 
missilerange=9000; 
end; 

shottime=sqrt(-2*((averageshottime/(sqrt(pi/2)))''2)*log(rand)); 

%  DETECTION  TIMIMG 
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ifimaging==i 

%  define  detection  time  (after  missile  launch) 

%  imaging  systems 
average_detecttal=,7 ; 
earl  iest_detecttal=.5 ; 

detecttal=earliest_detecttaI+sqrt(-2*(((average_detecttal“earliest_detecttal)/(sqrt(pi/2)))''2)*Iog(rand)); 

else 

%Rotating  systems 
rotation_rate=.5; 
earIiest_detection=l ; 
dummy=rand; 
if  dummy<=.8 
missdelay=0; 
elseif  dummy<=.95 
missdelay=rotation_rate; 
elseif  dummy<=.99 
missdelay=2*rotation_rate; 
else  missdelay=3*rotation_rate; 
end; 

detecttal=earIiest_detection+missdelay+rand*rotation_rate; 

end; 

onceitm=0; 
if  multiple 

pct_radius(  1 , 1  )=(expeff_minpctradius-f((  I  -expeff_minpctradius)*rand)); 

pct_radius(  1 ,2)=(expeff_minpctradius+((  1  -expeff_minpctradius)*rand)); 

pct_radius(l,3)=(expeff_minpctradius+((l-expeff_minpctradius)*rand)); 

pct_radius(l,4)=(expeff_minpctradius+((l-expeff_minpctradius)*rand)); 

pct__radius(  1 ,5)=(expeff_minpctradius+((  I  -expeff_minpctradius)*rand)); 

pct_radius(l,6)=(expeff_minpctradius-f((l-expeff_minpctradius)*rand)); 

pct_radius(  1 ,7)=(expeff_minpctradius+((  1  -expeff_minpctradius)*rand)); 

expeff_radius=expeff_maxradius.*pct_radius; 

onceitl=[0  0  0  00  0  0]; 

onceito=[0  0  0  00  0  0]; 

else 

pct_radius=(expeff_minpctradius+{(l-expeff_minpctradius)*rand)); 

expefOadius=expeff_maxradius*pct_radius; 

onceitl=0; 

onceito=0; 

end; 

%  *******  NOISE  GENERATION  INFORMATION 

%Define  variables  required  to  inject  noise  into  the  simulation 

noiseseed=randn(9, 1); 

%  noise  sampled  every  second 

acveistd=6.7;  %standard  deviation  of  noise  on  A/C  velocity  (99%  of  noise  points  will  be  within  +A  3x  this 
(ft/s) 

acangstd=.  16/57.3;  %same  as  above  but  is  for  climb  angle  (radians) 
acystd=5;  %same  as  above  but  is  for  y  position  (ft) 

AcquireNstd=.75/57.3;  %noise  in  missiles  knowledge  of  where  the  A/C  is  (sampled  every  .1  sec)  (radians) 
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MThrustNstd=.Ol;  %  noise  in  missiles  flight  commands  and  execution  (percent  of  command) 
accrosswind=0;  %  feet  the  A/C  drifts  in  the  w  direction  every  second 


%Run  simulation 
if  multiple 

[t,x,y]=linsim(’acmeblcm',[0  25],[],[.001,.00U.00l]); 
else 

[t,x,y]=linsim('acmeblck\[0  25],[],[.00l».001,.00l]); 
end; 


%  Define  point  in  space  where  missile  intersects  lethal  sphere 
sizethetamissile_end=size(acmtheta_end); 
thetamissile_at_end=acmtheta_end(sizethetamissile_end(  I ,  I )); 
phimissile_at_end=acmphi_end(sizethetamissile_end(  1,1)); 
amslantrange_at_end=amslantrange_end(sizethetamissile_end(l,l)); 
acx_at_end=xac(sizethetamissile_end(  1,1)); 
acy_at_end=yac(sizethetamissile_end(  1,1)); 
acz_at_end=zac(sizethetamissile_end(  1,1)); 

x_actual_hit=acx_at_end+amslantrange_at_end*sin(phimissiIe_at_end)*cos(thetamissiIe_at_end); 
y_actuaLhit=acy_at_end+amsIantrange_at_end*sin(phimissiIe_at_end)*cos(thetamissile_at_end); 
z_actuaLhit=acz_at_end4'amslantrange_at_end*cos(phimissile_at_end); 
if  multiple 
recordm 
plotitm 
else 
records 
plotits 

end 

end 

status=fclose(outfid); 
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%  File:  tracker.m 
%  Used  in  newmess.m 
% 

%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 

%  Last  Updated:  31  OCT  95 
% 

%  Function:  this  function  contains  the  statements  which  define  the  system  parameters 
%  for  the  different  trackers. 

% 

if  tracker_type=0  %DETECTOR  ONLY 

tracker=0;  %Define  if  there  is  a  tracker  on-board  the  A/C,  1  for  yes  or  0  for  no. 

trackerstd=pi/8;  %Define  tracker  angular  error  i.e.  1  means  +/3  degrees  (99  %  of  the  time) 

%(irrelevant  here) 

rangestd=600;  %Define  tracker  range  error  i.e,  2  means  +/-6  feet  (99%  of  the  time) 

%(irrelevant  here) 

missilevelstd=600;  %Define  tracker  error  for  velocity  of  missil  2  means  6  ft/s 
%(irrelevant  here) 

launchtime_safetyfactor=3;  %Define  launch  time  safety  factor  when  a  tracker  is  on-board  the  A/C 
imaging=I;  %define  wether  detector  is  imaging  or  gimbelled  (l=imaging  0=  rotating) 

expdelay=.2;  %Define  time  interval  between  expendable  salvos 

lsfs=.75; 
lsfm=.75; 

elseif  tracker_type==I  %TRACKER  1  (BAD) 
tracker=  I ;  %Define  if  there  is  a  tracker  on-board  the  A/C,  I  for  yes  or  0  for  no. 

trackerstd=2/57.3;  %Define  tracker  angular  error  i.e.  1  means  +/3  degrees  (99  %  of  the  time) 

rangestd=400;  %Define  tracker  range  error  i.e.  2  means  +/-6  feet  (99%  of  the  time) 

missilevelstd=i5;  %Define  tracker  error  for  velocity  of  missil  2  means  6  ft/s 

lsfs=.75;  %  launch  safety  factor  for  single  launch 

lsfm=.75;  %  launch  safety  factor  for  multiple  launch 

imaging=l; 

expdelay=.2;  %Define  time  interval  between  expendable  salvos 
elseif  tracker_type=2  %TRACKER  2  (OK) 
trackers  1; 

trackerstd=.333/57.3; 

rangestd=300; 

missilevelstd=l0; 

lsfs=.5; 

!sfm=.5; 
imagings  I ; 

expdelay=.2;  %Define  time  interval  between  expendable  salvos 
elseif  tracker_type==3  %TRACKER  3  (GOOD) 
tracker=l; 

trackerstd=(  l/60)/57.3; 

rangestd=5; 

missilevelstd=2; 

lsfs=.0l; 

lsfm=.15; 

imaging=l; 

expdelay=.05;  %Define  time  interval  between  expendable  salvos 
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elseif  tracker_type— 4  %TRACKER  4  TRW 

tracker^  I ; 

trackerstd=(l/6)/57.3; 

rangestd=2; 

missiievelstd=l/3; 

lsfs=.01; 

lsfm=:.15; 

imaging=l; 

expdelay=.05;  %Define  time  interval  between  expendable  salvos 
elseif  tracker_type==5  %TRACKER  5  AAR-54  with  ranging  antenna 
trackep=l; 

trackerstd=(l/3)/57.3; 

rangestd=5; 

missilevelstd=2; 

lsfs=.01; 

lsfm=.15; 

imaging=l; 

expdelay=.05;  %Defme  time  interval  between  expendable  salvos 
elseif  tracker_type==6  %TRACKER  5  AAR-54  with  ranging  antenna  with  larger  delay 
tracker=l; 

trackerstd=(l/3)/57.3; 

rangestd=5; 

missileveistd=2; 

lsfs=.07; 

lsfm=.15; 

imaging=l; 

expdelay=.05;  %Defme  time  interval  between  expendable  salvos 
end; 
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%  EXPDATA.m 


}|c  9(c  )fc  ’fe  *  *  }(e  *  i(t  i(c :)( i|(  }(c  :4(  **********  ^  ***  i(c  :(e  3fc  >|e 


%  fiele:  expdata.m 
%  Used  in  newmess.m 


%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%  Last  Updated:  14  SEP  95 


%  Function:  This  initializes  the  look-up  tables  and  other  constants 
%  for  the  expendable  type  to  be  used  in  the  simulation. 

%  The  look-up  tables  are  generated  using  getit.m 


%  exp_type 
%  1 

%  2 

%  3 

%  4 

%  5 

%  6 

%  1 

%  8 

%  9 

% 


iteration  2  Cherry  bomb 
iteration  2  DET  NET 
iteration  2  LEADS 
iteration  2  SpecNet 
iteration  2  Airbag 
iteration  3  Cherry  Bomb 
iteration  3  DET  NET 
iteration  3  SpecNet 
enlarged  DET  NET 


:(c9|(*:(c*:^:)c:fc^iK******  *****************************  ********** 


if  lethaldist==100 

if  exp^type==  1  %CHERR Y  BOMB 

%Define  properties  of  expendable  and  sphere 
%Sphere 

W_sphere=25;  %  weight  of  the  capsule  holding  the  expendable 
CD_sphere=.  15;  %  general  sphere  information 
S_sphere=.196; 

^Expendable 

CD_exp=.38; 

S_exp=.006944; 

W_exp=.238; 

%Define  vectors  to  be  used  to  determine  expendable  launch  angle 
%if  there  is  a  tracker  on  the  A/C 


%Define  time  required  for  expendable  to  get  to  target  point  on  lethal  sphere 
timeju(l:l0)=(.1436  .1436 ,1436  .1436  .1436  .1436  .1436 .1436  .1436  .1436]; 
timeju(ll:20)=[.1436  ,1436 .1436 .1436  ,1436  .1436  .1436  .1436  .1436  .1436] 
timeJu(2l:30)=[.I436  .1436  .1436  .1435  .1435  .1435  .1435  .1435  .1435  .1435] 
timeju(31:40)=[.1435  .1435  ,1435  .1435  .1435  .1435  .1435  .1435  .1435  .1435] 
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timeJu(4l:50)=[.I435  .1435  .1435  .1435  .1435  .1435  .1435  .1435  .1435  .1435]; 
timeju(51;60)=[.1435  .1435  .1435  .1435  .1434  .1434  .1434  .1434  .1434  .1434]; 
timeju(61;70)=[.1434  .1434  .1434 .1434  .1434  .1434  .1434  .1434  .1434  .1434]; 
tinieju(71:80)=[.  1434 .1434  .1434 .1434  .1433  .1433  .1433  .1433  .1433  .1433]; 
timeju(81:90)=[.1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433]; 
timeju(91:100)=[.1433  .1433  .1433  .1433 .1432  .1432  .1432  .1432  .1432  .1432]; 
timeju(101:110)=[.1432 .1432  .1432  .1432 .1432  .1432  .1432  .1432  .1432  .1431]; 
tinieju(lll:120)=[.1431  .1431  .1431  .1431  .1431  .1431  .1431  .1431  .1428.1428]; 
time_lu(  12 1:130)=[.  1428 .1428  .1432  .1428  .1431  .1427  .1431  .1431  .1427  .1432]; 
timeju(131:140)=[.1430  .1431  .1432  .1429  .1432  .1432  .1428  .1431  .1430  .1431]; 
timeju(141:150)=[.1431  .1427  .1427  .1426  .1430 .1430  .1432  .1431  .1430  .1432]; 
timeju(151:160)=[.1428  .1427  .1427  .1431  .1431  .1427  .1432  .1431  .1433  .1427]; 
timeju(161;170)=[.1433  .1427  .1432  .1432  .1432  .1432  .1428  .1428  .1428  .1426]; 
timeju(17l:181)=[.1427  .1428  .1428  .1427  .1427  .1428  .1427 .1428  .1427  .1427  .1427]; 


%Define  angle  at  which  missile  is  coming  at  aircraft.  This  will  always  be  0-180  by  I  as  shown  below 
theta_missileju=[0  1  2  3  4  5  6  7  8  9  10  1 1  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31 
32  33  34  35  36  37  38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64  65 
66  67  68  69  70  71  72  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88  89  90  91  92  93  94  95  96  97  98  99 
100  101  102  103  104  105  106  107  108  109  1 10  1 1 1  1 12  1 13  1 14  1 15  1 16  1 17  1 18  1 19  120  121  122  123 
124  125  126  127  128  129  130  131  132  133  134  135  136  137  138  139  140  141  142  143  144  145  146  147 
148  149  150  151  152  153  154  155  156  157  158  159  160  161  162  163  164  165  166  167  168  169  170  171 
172  173  174  175  176  177  178  179  180]; 


%Defme  angle  at  which  launcher  should  be  aimed  corresponding  to  the  angle  at  which  the  missile  is 
%coming  at  the  aircraft  shown  above 

thetajaunchju=[0  I  2  3  4  5  6  7  8  9  10  1 1  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31 
32  33  34  35  36  37  38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64  65 
66  67  68  69  70  71  72  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88  89  90  91  92  93  94  95  96  97  98  99 
100  101  102  103  104  105  106  107  108  109  1 10  11 1  1 12  1 13  1 14  1 15  1 16  1 17  1 18  1 19  120  121  122  123 
124  125  126  127  128  129  130  131  132  133  134  135  136  137  138  139  140  141  142  143  144  145  146  147 
148  149  150  151  152  153  154  155  156  157  158  159  160  161  162  163  164  165  166  167  168  169  170  171 
172  173  174  175  176  177  178  179  180]; 


phijaunchju(l:10)=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju(ll:20)=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju(21:30)=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunch_lu(3 1 :40)=[93. 12  93. 12  93. 12  93. 1 2  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12]; 
phijaunchju(41;50)=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju(5 1 :60)=[93. 12  93. 12  93. 12  93. 1 2  93. 12  93. 12  93. 12  93.12  93.12  93. 12]; 
phijaunchju(6 1  ;70)=[93. 12  93. 12  93. 12  93. 1 2  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12]; 
phijaunchju(7 1 :80)=[93. 12  93. 12  93. 12  93. 1 2  93. 12  93. 12  93. 12  93. 12  92.92  92.92]; 
phijaunchju(81:90)=[92.917  92.916  92.915  92.914  92.913  92.912  92.91 1  92.910  92.909  92.907]; 
phijaunchju(91:100)=[92.906  92.905  92.904  92.902  92.901  92.90092.898  92.897  92.896  92.894]; 
phijaunchju(101:l  10)=[92.893  92.891  92.890  92.888  92.886  92.885  92.883  92.882  92.880  92.878] 
phijaunchju(l  1 1:120)=[92.876  92.875  92.873  92.871  92.869  92.867  92.865  92.863  92.861  92.859] 
phijaunchju(121:130)=[93.081  93.021  93.224  93.140  93.219  93.030  92.901  92.764  92.995  93.068] 
phijaunchju(131:140)=[92.825  92.947  93.061  93.036  92.873  93.062  92.895  93.086  92.899  92.919] 
phLlaunchJu(l41:150)=[92.917  92.809  92.806  92.804  92.801  92.799  92.866  92.887  93.093  92.893] 
phijaunchju(151:160)=[93.047  92.912  92.840  93.066  92.866  93.060  92.891  92.879  93.042  92.874] 
phijaunchju(161:170)=[92.959  92.844  92.842  92.887  92.915  92.868  93.038  92.841  93.051  92.840] 
phijaunchju(171:181)=[92.904  92.861  92.839  92.893  92.855  92.851  93.066  92.861  92.953  92.823 
92.831]; 


elseif  exp_type==2; 
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%DETNET 


%Defme  properties  of  expendable  and  sphere 
%Sphere 

W_sphere=IO; 

CD_sphere=.15;  %  general  sphere  information 
S_sphere=.I96; 

%Expendable 

CD_exp=l.I6; 

S_exp=46.15; 

W_exp=6.87; 

%Define  vectors  to  be  used  to  determine  expendable  launch  angle 
%if  there  is  a  tracker  on  the  A/C 


%Define  time  required  for  expendable  to  get  to  target  point  on  lethal  sphere 
timejul=[.  144  .144  .144 .144  .144  .144  .144  .144  .144  .144]; 
time_lu2=[.144  .144 .144 .144  .144  .144  .144  .144  .144  .144]; 
timeju3=[-144  .144  .144 .144  .144  .144 .144 .144  .144  .144]; 
timeju4=[.  144  .144  .144  .144  .144  .144  .144  .144  .144 .144]; 
time_lu5=[.144 .144  .144  .144 .144  .144  .144  .144  .144 .144]; 
timeju6=[.144  .144  .144  .144  .144 .144 .144 .144  .144 .144]; 
timeju7=[.144  .144  .144  .144  .144  .144  .144  .144  .144  .144]; 
time_lu8=[.144 .144 .144 .144  .144 .144  .144  .144  .144 .144]; 
timeju9=[.144  .144 .144  .144  .144 .144  .144  .144  .144  .144]; 
timejull=[.144  .144  .144  .144  .144  .144  .144 .144 .144  .144]; 
timejul0=[.144 .144  .144  .144  .144  .144  .144 .144  .144  .144]; 
timejul2=:[.144  .144  .144  .144  .144  .143  .143  .143  .143  .143]; 

time_lul3=[.143  .143  .143  .143  .143  .143  .143  .143  .143  .143]; 

timejul4=[.143  .143  .143  .143  .143  .143  .143  .143  .143  .143]; 

timejul5=[.143  .143  .143  .143  .143  .143  .143  .143  .143  .143]; 

timejul6=[.143  .143  .143  .143  .143  .143  .143  .143 .143  .143]; 
timejul7=[.143 .143  .143  .143 .143  .143  .143  .143 .143  .143]; 
timejul8=[- 143 .143  .143 .143  .143  .143  .143  .143  .143 .143  .143]; 

time_lu=[time_lul  time_lu2  time_Iu3  time_lu4  time_Iu5  time_lu6  time_lu7  time_lu8  time_lu9  time_lulO 
timejul  1  time_lul2  timejul3  time_lul4  timeJulS  time_lul6  time_lul7  timeJulS]; 

%Define  angle  at  which  missile  is  coming  at  aircraft.  This  will  always  be  0-180  by  1  as  shown  below 
theta_missileju=[0  1  2  3  4  5  67  8  9  10  1 1  12  13  }  4  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31 
32  33  34  35  36  37  38  3940  41  42  43  44  45  46  47  48  49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64  65 
66  67  68  69  7071  72  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88  89  9091  92  93  94  95  96  97  98  99 
100  101  102  103  104  105  106  107  108  109  110  Ill  112  113  114  115  116  117  118  119  120  121  122  123 
124  125  126  127  128  129  130  131  132  133  134  135  136  137  138  139  140  141  142  143  144  145  146  147 
148  149  150  151  152  153  154  155  156  157  158  159  160  161  162  163  164  165  166  167  168  169  170  171 
172  173  174  175  176  177  178  179  180]; 

%Define  angle  at  which  launcher  should  be  aimed  corresponding  to  the  angle  at  which  the  missile  is 

%coming  at  the  aircraft  shown  above 

theta_launch_lu  I  =[0  1  2  3  4  5  6  7  8  9] ; 

thetajaunchju2=[10  11  12  13  14  15  16  17  18  19]; 

thetajaunchju3=[20  21  22  23  24  25  26  27  28  29]; 

theta_Iaunch_lu4=[30  31  32  33  34  35  36  37  38  39]; 
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thetajaunchju5=[40  41  42  43  44  45  46  47  48  49]; 
thetajaunchju6=[50  5 1  52  53  54  55  56  57  58  59]; 
theta_launchju7=[60  61  62  63  64  65  66  67  68  69]; 
theta_launchju8=[70  71  72  73  74  75  76  77  78  79]; 
theta JaunchJu9=[80  81  82  83  84  85  86  87  88  89]; 
theta_launchju  10=[90  9 1  92  93  94  95  96  97  98  99]; 
thetajaunch_lull=[100  tOl  102  103  104  105  106  107  108  109]; 

thetajaunchjul2=[l  10  1 1 1  1 12  1 13  1 14  1 14.796  1 15.796  1 16.791  1 17.787  1 18.782  1 19.779]; 


thetajaunch_ 

.Iul3: 

=[120.775 

121.772 

122.770 

123.767 

124.765 

125.764 

126.763 

127.762  128.762]; 

thetajaunch_ 

Jul4= 

=[129.985 

130.847 

131.861 

133.032 

133.972 

134.794 

135.86  136.927  137.89  139.069]; 

thetajaunch. 

jul5= 

=[139.910 

140.926 

141.855 

142.891 

144.075 

145  146 

147  148 

148.941]; 

thetajaunch. 

.lul6: 

=[149.881 

151.124 

151.999 

152.997 

154.087 

154.909 

155.952 

156.942  158.189 

158.898]; 

thetajaunch^ 

.lul7= 

=[159.894 

160.954 

161.995 

162.958 

163.937 

165.019 

166.076 

167.018  168.016 

169.023]; 

thetajaunch. 

.lul8= 

=[170.061 

171.237 

172.180 

173.056 

174.067 

175.088 

176.204 

176.944  178.127 

178.961  180.058]; 

thetajaunch_lu=[theta_launch_lul  theta_launch_lu2  theta_launch_lu3  theta_launch_lu4  theta_launch_lu5 
theta_launchju6  thetajaunchju7  theta_launch_lu8  theta_launch_lu9  theta_launch_lulO 
theta_launch_lu  1 1  theta_launch_lul2  thetajaunch_lul3  theta_launch_lul4  thetajaunch_lul5 
theta_launch_lu  1 6  theta_launchju  1 7  theta_launch_lu  1 8]; 

%Define  phi  angle  at  which  launcher  should  be  aimed  in  order  to  hit  missile. 
phijaunchjul=[93.12  93.12  93.12  93.12  93. 12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju2=[93.12  93. 12  93.12  93.12  93. 12  93.12  93.12  93. 12  93. 12  93.12]; 
phi_launchju3=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju4=[93. 12  93. 12  93. 12  93. 12  93.12  93. 12  93. 12  93. 12  93. 12  93. 12];  . 
phi_launchju5=[93.12  93.12  93.12  93.12  93. 12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju6=[93.l2  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju7=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju8=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju9=[93.12  93.12  93.12  93.12  92.92  92.92  92.92  92.92  92.92  92.91]; 
phijaunchjul0=[92.912  92.91 1  92.910  92.909  92.907  92.906  92.905  92.904  92.902  92.901]; 
phijaunchjul  1=[92.899  92.898  92.897  92.895  92.893  92.892  92.890  92.889  92.887  92.885]; 
phijaunchjul2=[92.884  92.882  92.880  92.878  92.876  92.874  92.872  92.870  92.868  92.866]; 
phijaunchjul 3=[92.864  92.862  92.860  92.857  92.855  92.853  92.851  92.848  92.846  92.844]; 
phijaunchjul4=[93.069  93.013  92.816  92.822  93.006  92.831  93.013  93.025  92.81 1  92.922]; 
phijaunchjul 5=[92.899  93.088  92.901  93.030  92.910  92.804  92.801  92.799  92.797  93.013]; 
phijaunchjul 6=[92.841  92.834  92.832  92.868  92.879  92.836  92.874  92.879  93.044  92.869]; 
phijaunchjul7=[93.028  92.853  92.877  92.823  92.827  93.016  92.827  92.858  92.866  92.865]; 
phijaunchjul 8=[93.053  92.840  92.898  92.866  92.870  92.904  92.876  92.854  93.024  93.005  92.826]; 
phijaunchju=[phijaunchjul  phi_launch_lu2  phijaunch_lu3  phijaunchju4  phijaunch_lu5 
phijaunchju6  phijaunchju7  phi JaunchJu8  phijaunchju9  phiJaunchJulO  phi Jaunch Ju  1 1 
phijaunchjul2  phijaunchjul3  phijaunchjul4  phijaunchjul5  phijaunchjul6  phijaunchjul7 
phijaunchjul  8]; 
elseif  exp_type=3 
%PHALANX 

%Define  properties  of  expendable  and  sphere 
%Sphere 

W_sphere=.22; 

CD_sphere=.  15;  %  general  sphere  information 

S_sphere=.196; 


%Expendable 

CD_exp=.38; 
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S_exp=.00338: 

W_exp=.22: 

%Define  vectors  to  be  used  to  determine  expendable  launch  angle 
%if  there  is  a  tracker  on  the  A/c 


%Define  time  required  for  expendable  to  get  to  target  point  on  lethal  sphere 

timejul=[.1457 .1457  .1457  .1457  .1457  .1457  .1457  .1457  .1457  .1457]; 

timeju2=[.  1456 .1456  .1456  .1456  .1456  .1456 .1455  .1455  .1455  .1454]; 

timeju3=[.1454  .1454  .1454  .1453  .1453  .1453  .1452  .1452  .1452 .1452]; 

time_lu4=[.1451  .1451  .1451  .1448  .1448  .1448  .1448  .1447  .1448  .1448]; 

timeju5=[.1447  .1447  .1447  .1447  .1447  .1447  .1446 .1446  .1446 .1446]; 

timeju6=[.l446  .1446  .1446 .1446  .1445  .1445 .1445  .1445  .1445  .1445]; 

timeju7=[.1445  .1445  .1445  .1445  .1445  .1445  .1445  .1445  .1445  .1444]; 

timeju8=[.1444  .1444  .1444  .1444  .1444 .1444  .1445  .1445  .1445  .1445]; 

timeju9=[.1445  .1445  .1445  .1445  .1445  .1445 .1445  .1445  .1445  .1445]; 

timejul  1=[.1445  .1445  .1445  .1445  .1445  .1445  .1444  .1444  .1444  .1444]; 

timejul0=[.  1444 .1444  .1444  .1444  .1444  .1444  .1444  .1444 .1444  .1444]; 

timejul2=[.1443  .1443  .1440  .1440  .1440 .1440 .1440 .1440 .1440  .1440]; 

timejul3=[.l440  .1440 .1440 .1440  .1440 .1437  .1436  .1436  .1435  .1435]; 

timejul4=:[.1435  .1434  .1434  .1434  .1433 .1433  .1433  .1433  .1432  .1432]; 

timejul5=[.1432. 1432. 1431  .1431  .1431  .1431  .1431  .1432.1432.1432]; 

timejul6=[.1432  .1432  .1431  .1431  .1431  .1436  .1431  .1431  .1436  .1437]; 

timejul7=[.1436  .1436  .1436 .1436  .1435  .1436 .1437  .1436 . 1436 .1436]; 

time_lul8=[.1436  .1436 .1437  .1436  .1436 .1436 .1437  .1437 .1436  .1436  .1436]; 

timeju=[time_lu  1  timeju2  time_lu3  time_lu4  timeju5  timeju6  timeju7  time_lu8  timeju9  timeJulO 

timejul  1  timejul2  timejul3  timejul4  timejul5  timejul6  timejul7  timejul8]; 


%Define  angle  at  which  missile  is  coming  at  aircraft.  This  will  always  be  0-180  by  1  as  shown  below 
theta_missileju=[0  1  2  3  4  5  6  7  8  9  10  1 1  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31 
32  33  34  35  36  37  38  39  4041  42  43  44  45  46  47  48  49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64  65 
66  67  68  69  70  71  72  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88  89  90  91  92  93  94  95  96  97  98  99 
100  101  102  103  104  105  106  107  108  109  1 10  1 1 1  1 12  1 13  1 14  1 15  1 16  1 17  1 18  1 19  120  121  122  123 
124  125  126  127  128  129  130  131  132  133  134  135  136  137  138  139  140  141  142  143  144  145  146  147 
148  149  150  151  152  153  154  155  156  157  158  159  160  161  162  163  164  165  166  167  168  169  170  171 
172  173  174  175  176  177  178  179  180]; 


%Define  angle  at  which  launcher  should  be  aimed  corresponding  to  the  angle  at  which  the  missile  is 

%coming  at  the  aircraft  shown  above 

thetajaunchjul=[0  1  2  3  4  5  6  7  8  9]; 

thetajaunchju2=[10  11  12  13  14  15  16  16.799  17.792  18.793]; 

thetajaunchju3=[  19.787  20.781  21.776  22.772  23.767  24.764  25.798  26.796  27.794  28.793]; 

theta JaunchJu4=[29.792  30.792  31.792  32.793  33.794  34.795  35.796  36.798  37.759  38.762]; 

thetajaunchju5=[39.764  40.768  41.771  42.775  43.779  44.784  45.788  46.793  47.798  49]; 

thetajaunch Ju6=[50  5 1  52  53  54  55  56  57  58  59]; 

theta JaunchJu7=[60  61  62  63  64  65  66  67  68  69]; 

theta JaunchJu8=[70  71  72  73  74  75  76  77  78  79]; 

theta JaunchJu9=[80  81  82  83  84  85  86  87  88  89]; 

thetajaunchjul0=[90  91  92  93  94  95  96  97  98  99]; 

theta JaunchJull=[100  101  102  103  104  105  106  107  107.798  108.789]; 

thetajaunchjul2=[109.780  110.771  112  112.797  113.791  1 14.782  1 15.772  116.764  117.756  118.784]; 
thetajaunchjul3=[  11 9.742  120.736  121.730  122.726  123.721  124.718  125.716  126.714  127.712 
128.712]; 

thetajaunchjul4=[  129.7 12  130.713  131.715  132.717  133.720  134.724  135.728  136.733  137.738 
138.745]; 
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thetajaunchjul5=[l39.751  140.759  141.766  142.775  143.783  144.792  145.876  147  148  149); 
thetajaunchjul6=[150  151  152  153  153.954  154.925  155.887  156.949  158.094  159.089]; 
thetajaunchjul7=[160.120  161.151  161.979  163.015  164.046  164.911  166.121  166.953  167.983 
168.911); 

thetajaunchjul8=[  170.038  171.072  172.072  173.084  174.003  175.108  176.079  177.065  178.008  179.18 
180.058]; 

thetajaunch_lu=[theta_launch_lul  theta_launch_lu2  theta_launch_lu3  thetajaunch_lu4  theta_launch_lu5 
theta_launch_lu6  theta_launch_lu7  tlieta_launch_lu8  theta_iaunch_lu9  theta_launch_lulO 
theta_launch_lu  1 1  theta_launch_Iul2  theta_Iaunch_lu  1 3  theta_launch_lul4  theta_launch_lul5 
thetajaunch_lul6  theta_launchjul7  thetajaunchjul8]; 

phijaunchjul=[93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93.12  93. 12]; 
phLIaunch_lu2=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju3=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phUaunchJu4=[93. 12  93. 1 2  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12]; 
phijaunchju5=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju6=[93.12  93. 12  93.12  93.12  93. 12  93.12  93.12  93. 12  93.12  93.12]; 
phijaunchju7=[93. 12  93. 12  93. 12  93. 12  93. 1 2  93. 12  93. 12  93. 12  93. 12  93. 12]; 
phijaunchju8=[93.12  93.12  93.12  93.12  93. 12  93.12  93.12  93.12  92.92  92.92]; 
phijaunchju9=[92.917  92.916  92.915  92.914  92.913  92.91 1  92.910  92.909  92.908  92.906]; 
phijaunchju  1 0=[92.905  92.904  92.903  92.9 1 9  92.9 1 8  92.9 1 7  92.9 1 6  92.9 1 4  92.9 1 3  92.9 1 2] ; 
phijaunchjul  I=[92.910  92.909  92.908  92.906  92.905  92.903  92.902  92.900  92.899  92.897]; 
phijaunchju  12=[92.895  92.893  92.891  92.890  92.888  92.886  92.884  92.882  92.879  92.877]; 
phijaunchju  13=[92.875  92.873  92.871  92.868  92.866  92.864  92.861  92.859  92.856  92.854]; 
phijaunchju  14=[92.851  92.849  92.846  92.843  92.841  92.838  92.835  92.833  92.830  92.828]; 
phijaunchju  15=[92.825  92.822  92.820  92.817  92.815  92.812  92.890  92.807  92.805  92.802]; 
phijaunchju  16=[92.800  92.798  92.795  92,793  93.065  93.050  93.068  92.878  93.041  92.861]; 
phijaunchju  17=[92.839  92.834  92.898  92.825  92.866  93.056  92.863  92.866  93.015  92.887]; 
phijaunchju  18=[92.8 18  92.859  93.006  92.875  92.853  92.846  92.943  93.017  92.865  92.834  92.870]; 
phi Jaunch Ju=[phi Jaunch Ju  1  phi_launchju2  phijaunchju3  phijaunchju4  phijaunch_lu5 
phijaunchju6  phijaunchju7  phiJaunchJuS  phijaunchju9  phiJaunchJulO  phijaunchjul  1 
phijaunchjul2  phijaunchjul3  phijaunch_lul4  phijaunchjul5  phijaunchjul6  phijaunchjul7 
phijaunchju  18]; 


elseif  exp_type=4; 

%SPEC  NET 

%Define  properties  of  expendable  and  sphere 
%Sphere 

W_sphere=5.2; 

CD_sphere=.15;  %  general  sphere  information 
S_sphere=.196; 

%Expendabie 

CD_exp=1.16; 

S_exp=15.6; 

W_exp=2.32; 

%Define  vectors  to  be  used  to  determine  expendable  launch  angle 
%if  there  is  a  tracker  on  the  A/C 


%Defme  time  required  for  expendable  to  get  to  target  point  on  lethal  sphere 
timejul=[- 1456 .1456 .1456 .1456  .1456  .1456  .1456 .1456 .1456  .1456]; 
timeju2=[.  1456 .1455  .1455  .1455  .1455  .1455  .1455  .1454 .1454  .1454]; 
timeju3=[.1453  .1453  .1453  .1453  .1452  .1452  .1450 .1449  .1451  .1451]; 
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time Ju4=[.  1451  .1448  .1448  .1448  .1448 .1447  .1448  .1448  .1447  .1447]; 

timeju5=[.1447  .1447  .1447  .1446  .1446 .1446 .1446  .1446  .1446  .1446]; 

timeju6=[.1445  .1445  .1445  .1445  .1445  .1445  .1445  .1445  .1445  .1444]; 

timeju7=[.1444  .1444  .1444  .1444 .1444  .1444  .1444  .1444  .1444  .1444]; 

timeju8=[- 1444  .1444  .1444  .1444  .1444  .1444  .1444  .1444  .1444  .1444]; 

timeju9=[.  1444 .1444  .1444  .1444 .1444  .1444  .1444  .1444  .1444  .1444]; 

timejul0=[.1444  .1444  .1444 .1444  .1444 .1444  .1444  .1444 .1444  .1444]; 

timejul  1=[.1444  .1444  .1444 .1444  .1444  .1444  .1443  .1443  .1443  .1440]; 

timejul2=[- 1440 .1440 .1440  .1440 .1440 .1440 .1440 .1440  .1440  .1440]; 

timejul3=[.1440  .1440 .1440  .1440  .1437 .1436  .1436  .1435  .1435  .1435]; 

timejul4=[.1434  .1434  .1434  .1433  .1433  .1433  .1433  .1432  .1432  .1432]; 

timejul5=[.  1432  .1431  .1431  .1431  .1431  .1431  .1436.1432.1432.1432]; 

timejul6=[.1432  .1431  .1431  .1431  .1431  .1431  .1435  .1431  .1435  .1435]; 

timejul7=[.1431  .1432  .1436  .1436  .1436 .1433  .1437  .1436  .1436  .1436]; 

timejul8=[.1437  .1437  .1437  .1436 .1436 .1437  .1436  .1436  .1436  .1437  .1436]; 

timeju=[timeju  1  timeju2  timeju3  timeju4  timeju5  timeju6  timeju7  timeJuS  time_lu9  time_lul0 

time_lul  1  time_lul2  time_lul3  time_lul4  timejul5  time_lul6  time_lul7  time_lul8]; 


%Detlne  angle  at  which  missile  is  coming  at  aircraft.  This  will  always  be  0-180  by  1  as  shown  below 
theta_missileju=[0  1  2  3  4  5  6  7  8  9  10  1 1  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  3 1 
32  33  34  35  36  37  38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64  65 
66  67  68  69  70  71  72  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88  89  90  91  92  93  94  95  96  97  98  99 
100  101  102  103  104  105  106  107  108  109  1 10  1 1 1  1 12  1 13  1 14  1 15  1 16  1 17  1 18  1 19  120  121  1.22  123 
124  125  126  127  128  129  130  131  132  133  134  135  136  137  138  139  140  141  142  143  144  145  146  147 
148  149  150  151  152  153  154  155  156  157  158  159  160  161  162  163  164  165  166  167  168  169  170  171 
172  173  174  175  176  177  178  179  180]; 


%Define  angle  at  which  launcher  should  be  aimed  corresponding  to  the  angle  at  which  the  missile  is 
%coming  at  the  aircraft  shown  above 
theta_launch_lul=[0  12345678  9]; 
thetajaunchju2=[10  11  12  13  14  15  16  17  17.798  18.8]; 

thetajaunchju3=[  19.794  20.788  21.783  22.779  23.775  24.771  25.768  26.765  27.799  28.798]; 

thetajaunchju4=[29.798  30.797  31.797  32.798  33.798  34.800  35.762  36.764  37.766  38.769]; 

thetajaunchju5=[39.772  40.775  41.778  42.782  43.786  44.790  45.795  46.799  48  49]; 

thetajaunchju6=[50  51  52  53  54  55  56  57  58  59]; 

thetajaunchju7=[60  61  62  63  64  65  66  67  68  69]; 

thetajaunchju8=[70  71  72  73  74  75  76  77  78  79]; 

thetajaunchju9=[80  81  82  83  84  85  86  87  88  89]; 

thetajaunchjul0=[90  91  92  93  94  95  96  97  98  99]; 

thetajaunchjull=tl00  101  102  103  104  105  106  107  108  109]; 

thetajaunchjul2=[110  111  112  1 12.798  1 13.792  1 14.783  115.774  116.766  117.758  118.751]; 
thetajaunchjul3=[  119.744  120.738  121.733  122.728  123.724  124.721  125.719  126.717  127.716 
128.715]; 

thetajaunchjul4=:[129.715  130.716  131.718  132.720  133.723  134.726  135.731  136.735  137.741 
138.747]; 

thetajaunchjul5=[  1 39.753  140.761  141.768  142.776  143.785  144.793  146.033  147  148  149]; 
thetajaunchjul6=[150  151  152  153  153.967  154.953  156.028  156.882  157.917  159.031]; 
thetajaunchjul7=[  159.989  160.968  162.155  162.946  164.002  164.926  165.960  166.973  167.977 
169.092]; 

thetajaunchjul8=[  170.201  171.202  172.237  172.981  173.995  175.016  176.216  176.979  177.938 
179.217  179.988]; 

theta_launch_lu=[theta_launch_lu  1  theta_launch_lu2  theta_launch_lu3  theta_launch_lu4  theta_launch_lu5 
theta_launchju6  theta_launch_lu7  theta_launch_lu8  theta_launchju9  theta_launch_lul0 
thetajaunchju  1 1  theta_launch_lul2  thet!rlaunchjul3  theta_launchjul4  thetajaunch_lul5 
theta_launch_lu  1 6  thetajaunchju  17  thetajaunchju  18]; 
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phUaunchJul=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju2=[93. 12  93.12  93. 12  93. 12  93.12  93. 12  93. 12  93. 12  93. 12  93.12]; 
phijaunchju3=[93.12  93. 1293.12  93.12  93. 12  93.12  93.12  93.12  93.12  93.12]; 
phUaunchJu4=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju5=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju6=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju7=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju8=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  92.92  92.919]; 
phijaunchju9=[92.918  92.917  92.91692.915  92.913  92.912  92.911  92.910  92.909  92.907]; 
phijaunch_lul0=[92.906  92.905  92.920  92.918  92.917  92.916  92.915  92.914  92.912  92.91 1]; 
phijaunchjul  1=[92.910  92.908  92.907  92.906  92.904  92.903  92.901  92.899  92.898  92.896]; 
phijaunchjul2=[92.894  92.893  92.891  92.889  92.887  92.885  92.883  92.881  92.879  92.877]; 
phijaunchjul 3=[93.874  92.872  92.870  92.868  92.865  92.863  92.860  92.858  92.856  93.853]; 
phijaunchjul 4=[92.850  92.848  92.845  92.843  92.840  92.838  92.835  92.832  92.830  92.827]; 
phijaunchjul5=[92.824  92.822  92.819  92.817  92.814  92.81 1  93.026  92.806  92.804  92.802]; 
phijaunchjul 6=[92.799  92.797  92.795  92.793  93.033  93.047  93.063  93.036  92.847  93.039]; 
phijaunchjul 7=[92.856  92.866  92.833  92.843  92.840  93.047  93.027  92.863  92.890  92.876]; 
phijaunchjul8=[93.004  93.055  92.852  92.889  92.834  92.889  92.850  92.873  92.868  92.849  92.870]; 
phi_launch Ju=[phi Jaunch Ju  1  phijaunch_lu2  phijaunchju3  phijaunchju4  phijaunch_lu5 
phijaunchju6  phijaunchju7  phijaunchju8  phijaunchju9  phiJaunchJulO  phijaunchjul  1 
phijaunchjul2  phijaunchjul3  phijaunchjul4  phijaunch_lu  15  phijaunchjul 6  phijaunchjul7 
phijaunchjul8]; 


elseif  exp_type==5 
%DEUCE  BAG 

%Define  properties  of  expendable  and  sphere 
%Sphere 

W_sphere=4 1 ; 

CD_sphere=.15;  %  general  sphere  information 
S_sphere=.  196; 


%Expendable 

CD_exp=  1.1; 

S_exp=158.4; 

W_exp=38.12; 

%Define  vectors  to  be  used  to  determine  expendable  launch  angle 
%if  there  is  a  tracker  on  the  A/C 


%Define  time  required  for  expendable  to  get  to  target  point  on  lethal  sphere 
timejul=[.1434  .1434  .1434  .1434  .1434  .1434 .1434  .1434  .1434  .1434]; 
time Ju2=[.  1434  .1434  .1434  .1434  .1434 .1434  .1434  .1434  .1434  .1434]; 
time Ju3=[- 1434  .1434  .1434  .1434  .1434  .1434  .1434  .1434  .1434  .1434]; 
time Ju4=[.  1434  .1434  .1434  .1434  .1434  .1434  .1433  .1433  .1433  .1433]; 
timeju5=[.1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433]; 
timeju6=[.1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433];; 
timeju7=[.1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433  .1432  .1432]; 
timeju8=[.1432  .1432  .1432  .1432  .1432  .1432 .1432  .1432  .1432  .1432]; 
timeju9=[.1432 .1432  .1432  .1432  .1432  .1432  .1432  .1432  .1431  .1431]; 
timejul0=[.1431  .1431  .1431  .1431  .1431  .1431  .1431  .1431  .1431  .1431]; 
timejull=[.1431  .1431  .1431  .1431  .1431  .1431  .1430.1430.1430.1430]; 
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time_lul2=(.1430  .1430 .1430 .1430  .1430 .1430  .1429  .1429  .1429  .1429]; 

timejul3=(.1429  .1429 .1427  .1427 .1430 .1426  .1426  .1426  .1426  .1431]; 

timejul4=[.1430  .1431  .1430  .1432 .1429  .1428  .1428  .1430 .1426  .1426]; 

timejul5=[-1426  .1426  .1426  .1430 .1430 .1429  .1431  .1432  .1427  .1427]; 

timejul6=(.1431  .1430.1431  .1431  .1431  .1431  .1430.1431  .1426.1426]; 

time_lul7=[.1431  .143.1432.1428.1431  .1426.1426.1426.1427.1426]; 

time_lul8=[.  1426 .1426  .1427  .1427  .1427  .1427  .1427  .1426  .1427  .1427  .1426]; 

timeju=[tinieju  1  time_lu2  time_lu3  time_lu4  timeJuS  time_lu6  time_lu7  timeJuS  tiinc_lu9  time_luI0 

timejul  1  time_lul2  time_lul3  timejul4  timeJulS  time_lul6  time_lul7  time_lul8]; 


%Define  angle  at  which  missile  is  coming  at  aircraft.  This  will  always  be  0-180  by  1  as  shown  below 
theta_missileju=[0  1  2  3  4  5  6  7  8  9  10  1 1  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31 
32  33  34  35  36  37  38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64  65 
66  67  68  69  70  71  72  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88  89  90  91  92  93  94  95  96  97  98  99 
100  101  102  103  104  105  106  107  108  109  110  111  112  113  114  115  116  117  118  119  120  121  122  123 
124  125  126  127  128  129  130  131  132  133  134  135  136  137  138  139  140  141  142  143  144  145  146  147 
148  149  150  151  152  153  154  155  156  157  158  159  160  161  162  163  164  165  166  167  168  169  170  171 
172  173  174  175  176  177  178  179  180]; 


%Define  angle  at  which  launcher  should  be  aimed  corresponding  to  the  angle  at  which  the  missile  is 

%coming  at  the  aircraft  shown  above 

theta_launchjul=[0  12345678  9]; 

thetajaunchju2=[10  11  12  13  14  15  16  17  18  19]; 

thetajaunchju3=[20  21  22  23  24  25  26  27  28  29]; 

thetajaunchju4=[30  31  32  33  34  35  36  37  38  39]; 

thetajaunchju5=[40  4 1  42  43  44  45  46  47  48  49]; 

theta_launch_lu6=[50  5 1  52  53  54  55  56  57  58  59]; 

thetajaunch_lu7=[60  61  62  63  64  65  66  67  68  69]; 

thetajaunchju8=[70  71  72  73  74  75  76  77  78  79]; 

thetajaunchju9=[80  81  82  83  84  85  86  87  88  89]; 

thetajaunchjul0=[90  91  92  93  94  95  96  97  98  99]; 

thetajaunchjul  1=[  100  101  102  103  104  105  106  107  108  109]; 

theta_launchjul2=[110  1 1 1  1 12  1 13  1 14  1 15  1 16  1 17  1 18  119]; 

thetajaunchjul3=[120  121  122.03  122.962  123.986  124.951  125.903  126.887  128.153  129.088]; 
thetajaunchjul4=[  130.057  131.138  132.027  133.168  133.917  134.948  135.912  136.969  138  139]; 
thetajaunchjul5=[140  141  142  143  144  144.935  146.1  147.148  147.892  148.949]; 
thetajaunchjul6=[l50.132  151.063  152.094  153.01  154.004  154.935  155.901  156.945  157.908 
158.883]; 

thetajaunchjul7=[159.977  161.002  161.937  163.163  164.022  164.957  165.953  167.012  168.084 
168.965]; 

thetajaunchjul8=[  170.005  170.983  171.916  173.027  174.103  175.117  176.1  176.948  177.937  178.938 
180.073]; 

theta_launchju=[thetajaunchjul  theta_launch_lu2  thetajaunchju3  theta_launch_lu4  theta_launch_lu5 
theta_Iaunch_lu6  theta_launch_lu7  theta_launch_lu8  theta_launch_lu9  theta_launch_lul0 
thetajaunchju  1 1  theta_launchjul2  thetajaunchjul 3  theta_launchjul4  thetajaunchjul 5 
thetajaunchjul 6  thetajaunchju  17  thetajaunchju  18]; 


phi Jaunch Ju  1=[93. 12  93.12  93. 12  93.12  93.12  93. 12  93. 12  93. 1 2  93. 12  93.12] 
phijaunchju2=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12] 
phijaunchju3=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12] 
phijaunch Ju4=[93. 12  93. 12  93. 12  93. 12  93.12  93. 12  93. 12  93. 12  93. 12  93. 12] 
phi  Jaunch  Ju5=[93. 12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12] 
phi  Jaunch  Ju6=[93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12] 
phijaunchju7=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12] 
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phUaunchJu8=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.92  92.918  92.917]; 
phUaunch_lu9=[92.916  92.915  92.914  92.913  92.912  92.910  92.909  92.908  92.907  92.906]; 
phUaunchJul0=[92.904  92.903  92.902  92.901  92.899  92.898  92.897  92.895  92.894  92.892J; 
phijaunchju  11 =[92.891  92.889  92.888  92.886  92.885  92.883  92.881  92.88  92.878  92.876]; 
phijaunchjul2=[92.874  92.873  92.871  92.869  92.867  92.865  92.863  92.861  92.859  92.857]; 
phijaunchju  13=[93.855  92.853  92.895  92.910  92.020  92.934  92.889  92.934  92.913  93.104]; 
phijaunchju  14=[92.834  92.920  93.017  93.070  93.015  92.904  93.024  93.096  92.815  92.812]; 
phijaunchju  15=[92.8 10  92.807  92.805  92.802  92.800  93.014  92.877  93.065  92.876  92.908]; 
phijaunchju  16=[92.886  92.906  92.856  93.049  93.01 1  93.032  92.824  93.083  92.843  92.867]; 
phijaunchju  17=[92.902  92.895  93.036  93.040  92.889  92.869  92.868  92.821  92.866  92.849]; 
phijaunchju  18=[92.860  92.856  92.864  92.891  92.836  92.857  92.838  92.851  92.953  92.955  92.828]; 
phijaunchju=[phijaunchjul  phi_launch_lu2  phijaunchju3  phijaunchju4  phijaunchju5 
phijaunchju6  phijaunchju7  phi_launchju8  phijaunchju9  phi_launchjul0  phijaunchju  1 1 
phijaunchjul2  phijaunchjul3  phijaunchjul4  phijaunchjul5  phijaunchjul6  phijaunchjul7 
phijaunchju  18]; 

elseif  expjype==6  %CHERRY  BOMB  iteration  3 


%Define  properties  of  expendable  and  sphere 
%Sphere 

W_sphere=78.26;  %weight  of  the  capsule  holding  the  expendable 
CD_sphere=.22;  %  general  sphere  information 
S_sphere=.1418; 


%Expendable 

CD_exp=.38; 

S_exp=1.04e-4; 

W_exp=1.65e-5; 

%Define  vectors  to  be  used  to  determine  expendable  launch  angle 
%if  there  is  a  tracker  on  the  A/C 


%Define  time  required  for  expendable  to  get  to  target  point  on  lethal  sphere 
timeju(l:10)=[.1433  .1433  .1433 .1433  .1433  .1433 .1433  .1433  .1433  .1433]; 
timeju(ll:20)=[.1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433]; 
timeju(21:30)=[.1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433]; 
timeju(31:40)=[.1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433]; 
timeju(41:50)=[.1433  .1432  .1432  .1432  .1432 .1432  .1432  .1432  .1432  .1432]; 
timeju(51:60)=[.1432  .1432  .1432  .1432  .1432  .1432  .1432  .1432  .1432  .1432]; 
timeju(61:70)=[.1432  .1432  .1432  .1432 .1432  .1432  .1432  .1432  .1432  .1432]; 
timeju(71:80)=[.1432  .1432  .1432  .1432  .1432  .1432  .1432  .1431  .1431  .1431]; 
timeju(81:90)=[.1431  .1431  .1431  .1431  .1431  .1431  .1431  .1431  .1431  .1431]; 
timeju(91:100)=[.1431  .1431 .1431  .1431  .1431  .1431  .1431  .1431  .1431  .1431]; 
timeJuC  101 :110)=[.  1431  .1431  .1431  .1431  .1430.1430.1430.1430.1430.1430]; 
timeju(lll:120)=[.1430 .1430  .1430  .1430  .1430  .1427  .1428  .1429  .1428  .1428]; 
timeju(121:130)=[.1431  .1429  .1428  .1430  .1431  .1428  .1431  .1427  .1431  .1431]; 

timeju(131:140)=[.1427  .1428  .1431  .1426  .1431  .1426  .1428  .1426  .1426  .1427]; 

timeju(141:150)=[.1427  .1427  .1427  .1427  .1427  .1432  .1431  .1430  .1431  .1430]; 

timeju(151:160)=[.1431  .1431  .1431  .1427  .1431  .1431  .1427  .1431  .1427  .1432]; 

timeju(161:170)=[.1432  .1432  .1428  .1427  .1428  .1432  .1427  .1427  .1432  .14232]; 

timeju(171:181)=[.1432  .1427  .1427  .1427  .1427  .1427  .1427  .1427  .1427  .1427  .1427]; 


%Define  angle  at  which  missile  is  coming  at  aircraft.  This  will  always  be  0-180  by  1  as  shown  below 
theta_missileju=[0  1  2  3  4  5  6  7  8  9  10  1 1  12  13  14  15  16  17  1 8  19  20  21  22  23  24  25  26  27  28  29  30  3 1 
32  33  34  35  36  37  38  39  40  41  42  43  44  45  46  47  48  49  50  5 1  52  53  54  55  56  57  58  59  60  61  62  63  64  65 
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66  67  68  69  70  7 1  72  73  74  75  76  77  78  79  80  8 1  82  83  84  85  86  87  88  89  90  9 1  92  93  94  95  96  97  98  99 

100  101  102  103  104  105  106  107  108  109  1 10  1 1 1  1 12  1 13  1 14  1 15  1 16  117  1 18  1 19  120  121  122  123 

124  125  126  127  128  129  130  131  132  133  134  135  136  137  138  139  140  141  142  143  144  145  146  147 

148  149  150  151  152  153  154  155  156  157  158  159  160  161  162  163  164  165  166  167  168  169  170  171 

172  173  174  175  176  177  178  179  180]; 


%Define  angle  at  which  launcher  should  be  aimed  corresponding  to  the  angle  at  which  the  missile  is 

%coming  at  the  aircraft  shown  above 

theta_launch_lu(l :  10)=[0  12345678  9]; 

theta_launchju(l  1:20)=[10  1 1  12  13  14  15  16  17  18  19]; 

thetajaunchju(2l:30)=[20  21  22  23  24  25  26  27  28  29]; 

theta_launchju(3 1:40)=[30  3 1  32  33  34  35  36  37  38  39]; 

thetajaunchju(41:50)=[40  41  42  43  44  45  46  47  48  49]; 

thetajaunchju(5 1 :60)=[50  5 1  52  53  54  55  56  57  58  59]; 

theta_launchju(6 1  ;70)=[60  6 1  62  63  64  65  66  67  68  69]; 

theta_launchju(71;80)=[70  71  72  73  74  75  76  77  78  79]; 

thetajaunch_lu(81;90)=[80  81  82  83  84  85  86  87  88  89]; 

thetajaunch_lu(91:100)=[90  91  92  93  94  95  96  97  98  99]; 

thetajaunch_lu(101:110)=[100  101  102  103  104  105  106  107  108  109]; 

thetajaunchju(lll:120)=[ll0  111  111.987  112.785  113.962  115.003  115.798  116.887  117.793 

118.889]; 

thetajaunchju(121;130)=[120.044  120.963  121.986  122.991  124.010  124.924  126.076  126.875  128.012 
129.060]; 

theta_launchju(  13 1:140)=[  129.931  130.938  132.106  132.878  134.158  134.913  135.915  136.930  137.916 
138.876]; 

thetajaunchju(14 1:150)=]  1 39.843  140.900  141.856  142.899  143.849  145.100  146.121  146.960  148.071 
148.895]; 

thetajaunchju(15 1:160)=]  150.026  151.076  151.927  152.934  153.980  154.969  155.928  156.965  157.884 
159.001]; 

thetajaunchju(  161: 170)=]  160.012  161.013  162.024  163.084  164.068  165.165  165.946  167.078  168.134 
169.180]; 

thetajaunchju(  171:181)=]!  70.1 45  171.096  172.103  173.156  174.175  175.161  175.947  177.164  178.272 
179.232  179.967]; 


phijaunchju(l:10)=]93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju(ll:20)=]93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phLlaunchJu(21 :30)=]93. 12  93. 12  93.12  93.12  93.12  93.12  93. 12  93. 12  93. 12  93. 1 2]; 
phLlaunchJu(31:40)=]93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju(41:50)=]93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju(51:60)=]93.12  93.12  93.12  93.12  93;i2  93.12  93.12  93.12  93.12  93.12]; 
phLlaunchJu(61:70)=]93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phLlaunchJu(71:80)=]93. 12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju(81:90)=]93.l2  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju(9 1 : 100)=]93. 1 2  93. 1 2  93. 1 2  93. 1 2  93. 1 2  93. 1 2  93. 1 2  93. 1 2  93. 12  93 . 1 2] ; 
phijaunchju(101 : 1 10)=]93. 12  93.12  93. 12  93.12  93.12  93. 12  93. 12  93. 12  93. 12  93.12]; 
phijaunchju(l  1 1:120)=]93.12  93.12  93.25  93.461  93.488  93.428  93.443  93.245  93.274  93.245]; 
phijaunchju(121:130)=]93.239  93.435  93.190  93.321  93.434  93.248  93.229  93.234  93.197  93.368] 
phijaunchju(131:140)=]93.356  93.230  93.268  93.422  93.353  93.361  93.417  93.241  93.357  93.228] 
phi_launchju(141:150)=]93.263  93.390  93.223  93.246  93.196  93.218  93.386  93.374  93.441  93.227] 
phi_launchju(151:160)=]93.185  93.407  93.219  93.265  93.390  93.247  93.196  93.229  93.404  93.424] 
phi_launchju(161:170)=]93.400  93.404  93.425  93.226  93.226  93.420  93.384  93.445  93.251  93.228] 
phijaunch_lu(171:181)=]93.410  93.217  93.261  93.206  93.200  93.237  93.246  93.246  93.247  93.222 


93.244]; 


elseif  exp_type=7  %DET  NET  iteration  3 
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%Define  properties  of  expendable  and  sphere 
%Sphere 

W_sphere=  12.08;  %weight  of  the  capsule  holding  the  expendable 
CD_sphere=.22;  %  general  sphere  information 
S_sphere=.1418; 

%Expendable 

CD_exp=1.16; 

S_exp=23.21; 

W_exp=7.3; 

%Define  vectors  to  be  used  to  determine  expendable  launch  angle 
%if  there  is  a  tracker  on  the  A/C 


%Define  time  required  for  expendable  to  get  to  target  point  on  lethal  sphere 
time_lu(l:10)=[.144  .144 .144  .144  .144  .144  .144  .144  .144  .144]; 
timeju(ll:20)=[.144  .144 .144  .144  .144 .144  .144  .144  .144  .144]; 
timeju(21:30)=[.144  .144  .144  .144 .144  .144  .144  .144  .144 .144]; 
timeju(31:40)=[.144  .144  .144  .144  .144 .144  .144  .144  .144 .1438]; 
time_lu(41:50)=[.1438  .1437  .1437  .1437 .1437  .1437  .1437  .1437  .1437  .1436]; 
timeju(51:60)=[.  1436 .1436  .1436  .1436 .1436  .1436 .1436  .1436  .1436  .1436]; 
timeju(61:70)=[.1436  .1436  .1436  .1436  .1435  .1435  .1435  .1435 .1435  .1435]; 
timeju(71;80)=[.1435  .1435  .1435  .1435  .1436 .1436  .1436  .1436  .1436  .1436]; 
timeju(81;90)=[.1436  .1436  .1436 .1436  .1436  .1436  .1436  .1436 .1436  .1436]; 
timeju(91:100)=[.  1436 .1436  .1436  .1436  .1436 .1436  .1436  .1436  .1436  .1436]; 
timeju(  101 :110)=[.  1436 .1436  .1436 .1436  .1436 .1436 .1436 .1436  .1436  .1436]; 
time_lu(l  1 1:120)=[.1436  .1436  .1435  .1435  .1435  .1433  .1433  .1432  .1433  .1433]; 
timeJuC  121 :130)=[.  1434  .1433  .1431  .1434  .1431  .1432  .1431  .1433  .1431  .1433]; 
timeju(131:140)=[.1434  .1434 .1429  .1429 .143  .1433  .1429 .143  .1433  .1429]; 
timeju(14l:150)=[.1429  .1429  .1429  .1429  .1431  .1431  .1431  .1431  .1432  .1431]; 
timeju(151:160)=[.1432  .1432  .1433  .1433  .1433  .1432  .1433  .1433  .1433  .1433]; 
timeju(161:170)=[.1433  .1433  .1433  .1434 .1434  .1434  .1434  .1428  .1433  .1428]; 
timeju(171:181)=[.143  .1429 .1429  .143  .143  .1429  .1429  .1429  .1429 .1429  .1429]; 


%Define  angle  at  which  missile  is  coming  at  aircraft.  This  will  always  be  0-180  by  1  as  shown  below 
theta_missileju=[0  1  2  3  4  5  6  7  8  9  10  1 1  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31 
32  33  34  35  36  37  38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64  65 
66  67  68  69  70  71  72  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88  89  90  91  92  93  94  95  96  97  98  99 
100  101  102  103  104  105  106  107  108  109  110  111  112  113  114  115  116  117  118  119  120  121  122  123 
124  125  126  127  128  129  130  131  132  133  134  135  136  137  138  139  140  141  142  143  144  145  146  147 
148  149  150  151  152  153  154  155  156  157  158  159  160  161  162  163  164  165  166  167  168  169  170  171 
172  173  174  175  176  177  178  179  180]; 


%Define  angle  at  which  launcher  should  be  aimed  corresponding  to  the  angle  at  which  the  missile  is 

%coming  at  the  aircraft  shown  above 

thetajaunchju(l :  10)=[0  12345678  9]; 

thetajaunchju(ll:20)=[10  11  12  13  14  15  16  17  18  19]; 

theta_launchju(21 :30)=[20  21  22  23  24  25  26  27  28  29]; 

thetajaunchju(31:40)=[30  31  32  33  34  35  36  37  38  39]; 

thetajaunchju(41:50)=[40  41  42  43  44  45  46  47  48  49]; 

thetajaunchju(5 1 :60)=[50  51  52  53  54  55  56  57  58  59]; 

thetajaunchju(61:70)=[60  61  62  63  64  65  66  67  68  69]; 

thetajaunchju(71:80)=[70  71  72  73  74  75  76  77  78  79]; 

thetajaunchju(81:90)=[80  81  82  83  84  85  86  87  88  89]; 
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theta_launch_lu(9 1 : 1 00)=[90  9 1  92  93  94  95  96  97  98  99] ; 
thetajaunchju(101:110)=[100  101  102  103  104  105  106  107  108  109]; 
thetajaunchju(lll:120)=[110  111  112  113  114  114.795  116.015  116.971  117.745  118.849]; 
thetajaunchju(121:130)=[  119.908  120.814  121.706  122.890  123.763  124.856  125.725  126.967  127.893 
128.888]; 

thetajaunchju(  13 1:140)=[  130.046  131.011  131.815  132.821  133.905  135.054  135.880  136.875  138.073 
138.951]; 

thetajaunchju(  14 1:150)=[  139.830  140.884  141.872  142.831  143.912  144.876  145.866  146.917  147.984 
148.866]; 

thetajaunchju(151:160)=[149.953  151.120  152.J15  153.072  154.124  154.913  156.053  156.984  158.069 
159.098]; 

theta_launchju(161:170)=[160.164  161.121  162.010  163.091  164.075  165.150  166.183  166.938  168.189 
168.940]; 

thetajaunchju(171;181)=[170.194  171.025  171.995  173.157  174.158  175.160  176.199  176.971  178.241 
179.038  180.017]; 


%Define  phi  angle  at  which  launcher  should  be  aimed  in  order  to  hit  missile. 
phijaunchju(l :  10)=[93. 1 2  93. 1 2  93. 12  93. 1 2  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12]; 
phijaunchju(l  I:20)=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju(2 1 :30)=[93. 12  93. 12  93.12  93. 12  93. 12  93.12  93. 12  93.12  93. 12  93. 12]; 
phijaunchju(3 1 :40)=[93. 12  93. 12  93. 12  93. 12  93. 12  93.12  93. 12  93.12  93. 12  93. 12]; 
phijaunchju(41  ;50)=[93. 12  93.12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93.12]; 
phijaunchju(51:60)=(93.12  93.12  93.12  93. 12  93.12  93.12  93. 12  93.12  93.12  93. 12]; 
phijaunchju(6 1 :70)=[93. 1 2  93. 1 2  93. 12  93 . 1 2  93. 1 2  93. 1 2  93. 1 2  93. 1 2  93. 12  93. 1 2] ; 
phijaunchju(71:80)=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju(8 1 :90)=[93. 1 2  93. 1 2  93. 1 2  93 . 1 2  93. 1 2  93. 1 2  93. 1 2  93. 1 2  93. 1 2  93 . 1 2] ; 
phijaunchju(9 1 : 100)=[93. 1 2  93. 1 2  93. 1 2  93. 1 2  93. 1 2  93. 1 2  93. 12  93. 1 2  93. 1 2  93. 1 2] ; 
phijaunchju(101:110)=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju(l  1 1:120)=[93.12  93.12  93.12  93.12  93.12  93.12  93.229  93.139  93.271  93.45]; 
phijaunchju(121:130)=[93.365  93.358  93.423  93.306  93.194  93.366  93.442  93.407  93.197  93.181] 
phijaunchju(131;140)=[93.254  93.354  93.373  93.260  93.148  93.423  93.359  93.224  93.171  93.266] 
phijaunchju(141:150)=[93.402  93.232  93.229  93.212  93.390  93.368  93.382  93.41 1  93.198  93.206] 
phijaunchju(151;160)=[93.255  93.203  93.419  93.451  93.232  93.378  93.410  93.379  93.210  93.236] 
phijaunchju(161:170)=[93.416  93.424  93.391  93.227  93.231  93.430  93.393  93.387  93.213  93.427] 
phijaunchju(171;181)=[93.256  93.450  93.233  93.245  93.247  93.244  93.415  93.234  93.233  93.252 
93.402]; 

elseif  exp_type==8  %SpecNet  iteration  3 


%Define  properties  of  expendable  and  sphere 
%Sphere 

W_sphere=16.18;  %weight  of  the  capsule  holding  the  expendable 
CD_sphere=.22;  %  general  sphere  information 
S_sphere=.1418; 


%Expendable 

CD_exp=1.16; 

S_exp=37.68; 

W_exp=l  1.47; 

%Define  vectors  to  be  used  to  determine  expendable  launch  angle 
%if  there  is  a  tracker  on  the  A/C 


%Define  time  required  for  expendable  to  get  to  target  point  on  lethal  sphere 
timeju(l:10)=[.1440  .1440  .1440  .1440 .1440  .1440 .1440  .1440  .1440  .1440]; 
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timeju(ll:20)=[.1440 .1440 .1440 .1440 .1440  .1440  .1440  .1440  .1440  .1440]; 
timeju(21:30)=[.1440  .1440  .1440 .1440 .1438  .1438  .1438  .1437  .1437  .1437]; 
time_lu(31:40)=[.1437  .1437  .1437 .1437  .1437  .1437  .1436  .1436  .1436  .1436]; 
timeju(41:50)=[.1436  .1436 .1436 .1436  .1436 .1436  .1435  .1435  .1435  .1435]; 
timeju(51;60)=[.1435  .1435 .1435  .1435  .1435  .1435  .1435  .1435  .1435  .1435]; 
timeju(6l:70)=[.1435  .1434  .1434 .1434  .1434  .1434  .1434  .1434 .1434  .1434]; 
timeju(71:80)=[.1434  .1434  .1434 .1434  .1434  .1434  .1434  .1434  .1434  .1434]; 
timeju(81:90)=[.1434  .1434 .1434 .1434  .1434  .1435  .1435  .1435  .1435  .1435]; 
timeju(91;100)=[.1435  .1435  .1435  .1435 .1435  .1435  .1435  .1435  .1435  .1435]; 
titneju(101:l  10)=[-1435  .1435  .1434  .1434  .1434  .1434  .1434  .1434  .1434  .1434]; 
timeju(lll:120)=[.1434. 1434. 1434. 1434. 1434. 1431  .1431  .1431  .1431  .1430]; 
timeju(121:130)=[.1431  .1430.1431  .1431  .1431  .1431  .1433  .1430.1433  .1429]; 
timeju(131:140)=[.1433  .1429  .1428  .1428  .1428  .1428  .1433  .1429  .1429  .1433]; 

timeju(141:150)=[.1427  .1428  .1433  .1428  .1431  .1432  .1431  .1431  .1431  .1431]; 

timeju(  15 1;160)=[- 1432 .1432  .1432  .1432  .1432  .1428  .1432  .1432  .1433  .1433]; 

timeju(161:170)=[.1433  .1428  .1433  .1433  .1433  .1433  .1433  .1429  .1428  .1429]; 

timeJu(171:I81)=[-I429  .1428  .1429  .1428  .1429  .1429  .1429  .1429  .1428  .1429  .1429]; 


%Define  angle  at  which  missile  is  coming  at  aircraft.  This  will  always  be  0-180  by  1  as  shown  below 
theta_missileju=[0  1  2  3  4  5  6  7  8  9  10  1 1  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31 
32  33  34  35  36  37  38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64  65 
66  67  68  69  70  71  72  73  74  75  76  77  78  79  80  8 1  82  83  84  85  86  87  88  89  90  91  92  93  94  95  96  97  98  99 
100  101  102  103  104  105  106  107  108  109  1 10  1 1 1  1 12  1 13  1 14  1 15  1 16  1 17  1 18  1 19  120  121  122  123 
124  125  126  127  128  129  130  131  132  133  134  135  136  137  138  139  140  141  142  143  144  145  146  147 
148  149  150  151  152  153  154  155  156  157  158  159  160  161  162  163  164  165  166  167  168  169  170  171 
172  173  174  175  176  177  178  179  180]; 


%Define  angle  at  which  launcher  should  be  aimed  corresponding  to  the  angle  at  which  the  missile  is 
%coming  at  the  aircraft  shown  above 

theta_launchju=[0  1  2  3  4  5  6  7  8  9  10  1 1  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31 
32  33  34  35  36  37  38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64  65 
66  67  68  69  70  71  72  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88  89  90  91  92  93  94  95  96  97  98  99 
100  101  102  103  104  105  106  107  108  109  1 10  1 1 1  1 12  1 13  1 14  114.872  115.947  116.748  117.833 
118.929  119.768  120.787  121.827  122.816  123.903  124.857  125.899  126.929  128.024  128.814  130.003 
130.833  131.831  132.846  133.891  134.903  136.031  136.987  137.874  139.097  139.845  140.88  142.072 
142.823  143.938  144.995  145.87  146.946  147.933  148.962  150.112  151.077  152.12  153.122  154.15 
154.881  155.897  157.025  158.137  159.042  160.018  160.945  162.225  163.013  164.088  165.229  166.104 
167.131  167.98  169.079  170.093  170.915  172.19  172.971  174.198  175.198  176.266  177.232  178.023 
179.186  180.049]; 


phijaunchjufl :  10)=[93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12]; 
phijaunchjud  1 :20)=[93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93.12  93.12  93.12]; 
phijaunchju(21:30)=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju(31:40)=[93. 12  93.12  93. 12  93. 12  93.12  93.12  93. 12  93.12  93.12  93. 12]; 
phijaunchju(41:50)=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju(5 1 :60)=[93. 12  93.12  93. 12  93.12  93. 12  93.12  93. 12  93. 12  93. 12  93.12]; 
phijaunchju(61 :70)=[93. 12  93.12  93. 12  93.12  93^  12  93. 12  93. 12  93. 12  93. 12  93. 12]; 
phijaunchju(7 1 :80)=[93. 12  93. 12  93. 12  93. 12  93.12  93. 12  93. 12  93.12  93. 12  93.12]; 
phi_launchju(8 1 :90)=[93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12]; 
phi_launchju(91:100)=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju(101:110)=[93.12  93.12  93.12  93. 12  93.12  93.12  93.12  93.1293.12  93.12]; 
phijaunchjud  1 1:120)=[93.12  93.12  93.12  93.12  93.12  93.472  93.398  93.273  93.373  93.236]; 
phijaunchju(121:130)=[93.351  93.175  93.441  93.268  93.260  93.427  93.192  93.369  93.187  93.248] 
phijaunchju(131;140)=[93.431  93.17093.372  93.420  93.392  93.219  93.228  93.247  93.392  93.200] 
phijaunchjud41:l50)=[93.436  93.230  93.393  93.216  93.457  93.219  93.420  93.187  93.429  93.424] 
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phijaunchju(151:160)=[93.393  93.243  93.203  93.216  93.198  93.386  93.397  93.381  93.21 1  93.237]; 
phijaunchju(161:170)=[93.409  93.230  93.200  93.458  93.446  93.428  93.24293.410  93.252  93.256]; 
phijaunchju(171:181)=[93.441  93.260  93.237  93.255  93.238  93.236  93.242  93.215  93.237  93.426 
93.215]; 

elseif  exp_type==9  %DET  NET  enlarged 

%Define  properties  of  expendable  and  sphere 
%Sphere 

W_sphere=  1 2.08;  %weight  of  the  capsule  holding  the  expendable 
CD_sphere=.22;  %  general  sphere  information 
S_sphere=.1418; 

%Expendable 

CD_exp=1.16; 

S_exp=23.21; 

W_exp=15; 

%Define  vectors  to  be  used  to  determine  expendable  launch  angle 
%if  there  is  a  tracker  on  the  A/C 


%Define  time  required  for  expendable  to  get  to  target  point  on  lethal  sphere 
timeju(l:10)=(.144 .144  .144 .144 .144  .144  .144 .144 .144  .144]; 
timeju(ll:20)=[.144  .144 .144  .144 .144  .144  .144  .144  .144 .144]; 
timeju(2l:30)=[.144  .144  .144  .144 .144  .144  .144  .144  .144  .144]; 
timeju(3 1 :40)=[.  1 44  . 1 44  . 1 44 . 144  . 144  . 1 44  . 1 44  . 1 44  . 144 . 1 438] ; 
timeju(41:50)=[.1438  .1437  .1437  .1437  .1437  .1437  .1437  .1437  .1437  .1436]; 
timeju(51:60)=[.1436  .1436  .1436  .1436 .1436  .1436 .1436  .1436  .1436 .1436]; 
timeju(61:70)=[.1436  .1436  .1436  .1436  .1435  .1435  .1435  .1435  .1435  .1435]; 
timeju(71:80)=[.1435  .1435  .1435  .1435  .1436  .1436  .1436 .1436  .1436  .1436]; 
timeju(8l:90)=[.1436 .1436  .1436  .1436 .1436 .1436 .1436  .1436  .1436  .1436]; 
timeju(91:100)=[.  1436 .1436 .1436  .1436  .1436 .1436 . 1436  .1436  .1436  .1436]; 
timeju(101:110)=[.1436  .1436  .1436 .1436 .1436  .1436 .1436 .1436 .1436  .1436]; 
timejud  11:120)=[.1436  .1436  .1435  .1435 .1435  .1433  .1433  .1432  .1433  .1433]; 
timeju(121:130)=[.1434 .1433  .1431  .1434 .1431  .1432  .1431  .1433  .1431  .1433]; 
timeJuC  13 1:140)=[.  1434 .1434  .1429  .1429 .143  .1433  .1429 .143  .1433  .1429]; 
timeju(141:150)=[.1429. 1429  .1429. 1429. 1431  .1431  .1431  .1431  .1432.1431]; 
timeju(151:160)=[.1432  .1432  .1433  .1433  .1433  .1432  .1433  .1433  .1433  .1433]; 
timeju(161:170)=[.1433  .1433  .1433  .1434  .1434  .1434  .1434  .1428  .1433  .1428]; 
timeju(171:181)=[.143  .1429  .1429  .143  .143  .1429  .1429  .1429  .1429  .1429  .1429]; 


%Define  angle  at  which  missile  is  coming  at  aircraft.  This  will  always  be  0-180  by  1  as  shown  below 
theta_missileju=[0  1  2  3  4  5  6  7  8  9  10  1 1  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31 
32  33  34  35  36  37  38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64  65 
66  67  68  69  70  7 1  72  73  74  75  76  77  78  79  80  8 1  82  83  84  85  86  87  88  89  90  9 1  92  93  94  95  96  97  98  99 
100  101  102  103  104  105  106  107  108  109  1 10  1 1 1  1 12  1 13  1 14  1 15  1 16  1 17  118  1 19  120  121  122  123 
124  125  126  127  128  129  130  131  132  133  134  135  136  137  138  139  140  141  142  143  144  145  146  147 
148  149  150  151  152  153  154  155  156  157  158  159  160  161  162  163  164  165  166  167  168  169  170  171 
172  173  174  175  176  177  178  179  180]; 


%Define  angle  at  which  launcher  should  be  aimed  corresponding  to  the  angle  at  which  the  missile  is 

%coming  at  the  aircraft  shown  above 

thetajaunchju(  1 : 10)=(0  12  3  4  5  6  7  8  9]; 

theta_launch_lu(ll:20)=[10  11  12  13  14  15  16  17  18  19]; 

thetajaunchju(21:30)=[20  21  22  23  24  25  26  27  28  29]; 

thetajaunchju(31:40)=[30  31  32  33  34  35  36  37  38  39]; 
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theta_launchju(4 1 :50)=[40  4 1  42  43  44  45  46  47  48  49] ; 
thetajaunch_lu(5 1 :60)=[50  5 1  52  53  54  55  56  57  58  59]; 
theta_launch_Iu(61:70)=[60  61  62  63  64  65  66  67  68  69]; 
thetajaunchju(7 1 :80)=[70  7172  73  74  75  76  77  78  79]; 
thetajaunchju(81;90)=[80  81  82  83  84  85  86  87  88  89]; 
thetajaunchju(91:100)=[90  91  92  93  94  95  96  97  98  99]; 
thetajaunchju(l01:110)=[100  101  102  103  104  105  106  107  108  109]; 
thetajaunchju(lll;l20)=[110  111  112  113  114  114.795  116.015  116.971  117.745  118.849]; 
thetajaunchju(121:130)=[l  19.908  120.814  121.706  122.890  123.763  124.856  125.725  126.967  127.893 
128.888]; 

thetajaunchju(131:140)=[  130.046  131.011  131.815  132.821  133.905  135.054  135.880  136.875  138.073 
138.951]; 

thetajaunchju(  14 1:150)=[  139.830  140.884  141.872  142.831  143.912  144.876  145.866  146.917  147.984 
148.866]; 

thetajaunchju(151:160)=[149.953  151.120  152.115  153.072  154.124  154.913  156.053  156.984  158.069 
159.098]; 

thetajaunch_lu(161:170)=[160.164  161.121  162.010  163.091  164.075  165.150  166.183  166.938  168.189 
168.940]; 

thetajaunch_lu(171:181)=[170.194  171.025  171.995  173.157  174.158  175.160  176.199  176.971  178.241 
179.038  180.017]; 


%Define  phi  angle  at  which  launcher  should  be  aimed  in  order  to  hit  missile. 
phijaunchju(l:10)=(93.12  93.12  93. 12  93.12  93.12  93. 12  93. 12  93.12  93.12  93.12]; 
phijaunchjud  1;20)=[93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93.12]; 
phijaunchju(2 1 :30)=[93. 1 2  93. 12  93. 12  93. 1 2  93. 12  93. 12  93. 1 2  93. 1 2  93. 12  93. 1 2]; 
phijaunch_lu(3 1 :40)=[93. 1 2  93. 1 2  93. 1 2  93. 1 2  93. 12  93. 1 2  93. 1 2  93. 1 2  93. 1 2  93. 1 2]; 
phLlaunchJu(4 1  ;50)=[93. 12  93. 12  93. 12  93. 1 2  93. 12  93. 12  93. 12  93. 1 2  93. 12  93. 12]; 
phijaunchju(5 1 :60)=[93. 12  93. 12  93. 12  93. 1 2  93. 12  93. 12  93. 12  93. 12  93. 12  93. 1 2]; 
phi_launchju(6 1 :70)=[93. 12  93. 12  93. 12  93. 1 2  93. 12  93. 1 2  93. 12  93. 12  93. 12  93. 12]; 
phijaunch_lu(71:80)=[93.12  93.12  93.12  93. 12  93.12  93.12  93. 12  93.12  93.12  93. 12]; 
phijaunchju(81:90)=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunch_lu(91:100)=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.l2]; 
phijaunchju(101:110)=[93.12  93. 12  93.12  93.12  93. 12  93. 12  93.12  93. 12  93.12  93.12]; 
phijaunchjud  1 1:120)=[93.12  93.12  93.12  93.12  93. 12  93.12  93.229  93.139  93.271  93.45]; 
phijaunchjud21;130)=[93.365  93.358  93.423  93.306  93.194  93.366  93.442  93.407  93.197  93.181] 
phijaunchjud 3 1;140)=[93.254  93.354  93.373  93.260  93.148  93.423  93.359  93.224  93.171  93.266] 
phijaunchju(141: 150)=[93.402  93.232  93.229  93.212  93.390  93.368  93.382  93.41 1  93.198  93.206] 
phijaunchjud5 1:160)=[93.255  93.203  93.419  93.45 1  93.232  93.378  93.410  93.379  93.210  93.236] 
phijaunchjud61:170)=[93.416  93.424  93.391  93.227  93.231  93.430  93.393  93.387  93.213  93.427] 
phijaunchju(171:181)=[93.256  93.450  93.233  93.245  93.247  93.244  93.415  93.234  93.233  93.252 
93.402]; 


end; 

elseif  lethaldist==500 
%SPECNET 

%Define  properties  of  expendable  and  sphere 
%Sphere 

W_sphere=5.2; 

%Expendable 

CD_exp=1.16; 

S_exp=15.6; 

W_exp=2.32; 

%Define  vectors  to  be  used  to  determine  expendable  launch  angle 
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%if  there  is  a  tracker  on  the  A/C 


%Define  time  required  for  expendable  to  get  to  target  point  on  lethal  sphere 
timeju(l:10)=[.1436 .1436 .1436 .1436 .1436  .1436 .1436  .1436  .1436  .1436]; 
time_lu(l  1:20)=[.1436  .1436  .1436  .1436 .1436  .1436  .1436  .1436  .1436  .1436]; 
timeju(21:30)=[.1436  .1435  .1435 .1435  .1435  .1435  .1435  .1435  .1435  .1435]; 
timeju(31:40)=[.1435  .1435  .1435  .1435  .1435  .1435  .1434  .1434  .1434  .1434]; 
timeju(41;50)=[.1434  .1434  .1434 .1434 .1434  .1434  .1434  .1434  .1434  .1434]; 
timeju(51:60)=[.1434  .1434  .1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433]; 
timeju(61:70)=[.1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433]; 
timeju(71:80)=[.1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433]; 
timeju(81:90)=[.1433  .1433  .1433 .1433 .1433  .1433  .1433  .1433  .1433  .1433]; 
timeju(91:100)=[.1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433  .1433]; 
timeju(10l:110)=[-1433  .1432  .1432 .1432  .1432  .1432  .1432  .1432  .1432  .1432]; 
time_lu(l  1  I:120)=[-1432 .1432  .1432  .1432  .1431  .1431  .1429  .1429  .1429  .1430]; 
timeju(121;130)=(.1432  .1428  .1430.1429  .1431  .1432  .1428  .1432  .1432  .1427]; 
timeju(131:140)=[.  1432 .1431  .1427  .1427  .1427  .1432  .1427  .1432  .1426  .1428]; 
timeju(141:150)=[.1428  .1428  .1428  .1427  .1432  .1430  .1430  .1431  .1427  .1431]; 
timeju(151:160)=[.1431  .1432.1432.1431  .1432.1431  .1428.1432.1432.1432]; 
time_lu(  16 1:170)=[.  1432 .1432  .1433  .1428  .1428  .1432  .1428  .1428  .1432  .1432]; 
timeju(171:181)=[-1428  .1428  .1428  .1428  .1428  .1427 .1428  .1427  .1427  .1428  .1428]; 


%Define  angle  at  which  missile  is  coming  at  aircraft.  This  will  always  be  0-180  by  1  as  shown  below 
theta_missile_lu=[0  1  2  3  4  5  6  7  8  9  10  1 1  12  13  14  15  16  17  18  19  20  21  22  23  24  25  26  27  28  29  30  31 
32  33  34  35  36  37  38  39  40  41  42  43  44  45  46  47  48  49  50  51  52  53  54  55  56  57  58  59  60  61  62  63  64  65 
66  67  68  69  70  71  72  73  74  75  76  77  78  79  80  81  82  83  84  85  86  87  88  89  90  91  92  93  94  95  96  97  98  99 
100  101  102  103  104  105  106  107  108  109  110  111  112  113  114  115  116  117  118  119  120  121  122  123 
124  125  126  127  128  129  130  131  132  133  134  135  136  137  138  139  140  141  142  143  144  145  146  147 
148  149  150  151  152  153  154  155  156  157  158  159  160  161  162  163  164  165  166  167  168  169  170  171 
172  173  174  175  176  177  178  179  180]; 


%Define  angle  at  which  launcher  should  be  aimed  corresponding  to  the  angle  at  which  the  missile  is 
%coming  at  the  aircraft  shown  above 
thetajaunchju(  1 ;  10)=[0  12345678  9]; 
thetajaunchju(ll;20)=[10  11  12  13  14  15  16  17  18  19]; 
theta_launchju(21:30)=[20  21  22  23  24  25  26  27  28  29]; 
theta_launchju(3 1:40)=[30  3 1  32  33  34  35  36  37  38  39]; 
theta_launchju(4 1:50)=[40  4 1  42  43  44  45  46  47  48  49]; 
theta_launchju(5 1 :60)=[50  5 1  52  53  54  55  56  57  58  59]; 
theta_launchju(6 1 :70)=[60  6 1  62  63  64  65  66  67  68  69]; 
theta_launchju(7 1 :80)=[70  7 1  72  73  74  75  76  77  78  79]; 
thetajaunchju(81:90)=[80  81  82  83  84  85  86  87  88  89]; 
thetajaunchju(91:100)=(90  91  92  93  94  95  96  97  98  99]; 
thetajaunchju(101:110)=[100  101  102  103  104  105  106  107  108  109]; 
theta_launchju(lll:120)=[110  111  112  113  113.896  115.048  115.796  1 16.81 1  117.818  118.886]; 
thetajaunchju(  12 1:130)=[  119.977  120.990  121.870  122.898  123.989  124.979  125.715  127.043  128.037 
128.826]; 

thetajaunchju(131:140)=[  130.027  131.062  131.847  132.847  133.885  135.072  135.856  137.090  137.879 
138.917]; 

thetajaunchju(  141 :150)=[  139.887  140.903  141.910  142.894  144.082  144.862  145.932  146.990  147.790 
149.058]; 

thetajaunchju(151:160)=[  150.010  151.117  152.073  153.040  154.103  154.902  156.004  157.026  158.032 
159.036]; 
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thetajaunchju(161:170)=[160.143  161.054  162.049  163.012  164.099  165.143  166.119  167.167  168.261 
169.156]; 

thetajaunchju(171:181)=[170.113  171.156  172.140  173.221  174.117  174.955  176.193  176.989  178.016 
178.970  180.117]; 


phijaunchju(l :  10)=[93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12]; 
phi_launchju(l  1:20)=[93.1293.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju(21:30)=[93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phi_launch_lu(3 1 :40)=[93. 12  93. 12  93. 12  93. 1 2  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12]; 
phijaunchju(41:50)=[93.1293.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunch_lu(51:60)=[93.1293.12  93.12  93. 12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phUaunchJu(6 1 :70)=[93. 1 2  93. 1 2  93. 1 2  93 . 1 2  93. 1 2  93. 1 2  93. 1 2  93. 1 2  93. 12  93. 1 2] ; 
phijaunchju(7 1 :80)=[93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93.12  93. 12  93. 12]; 
phUaunchJu(81 :90)=[93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93. 12  93.12]; 
phijaunchju(91:100)=[93. 12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju(101:110)=[93.l2  93. 12  93.12  93.12  93. 12  93.12  93.12  93.12  93.12  93.12]; 
phijaunchju(l  1 1:120)=[93.12  93.12  93.12  93.12  93.367  93.276  93.389  93.440  93.273  93.224]; 
phijaunchju(121:130)=[93.212  93.192  93.270  93.265  93.231  93.236  93.301  93.420  93.175  93.244] 
phijaunch_lu(  13 1 : 140)=[93.256  93.396  93.365  93.233  93.259  93.358  93.369  93. 182  93.43 1  93.263] 
phijaunchju(141;150)=[93.230  93.367  93.222  93.389  93.201  93.402  93.202  93.175  93.230  93.433] 
phijaunchju(  15 1:160)=[93.220  93.394  93.386  93.174  93.208  93.418  93.380  93.388  93.196  93.430] 
phUaunchJu(161:170)=[93.432  93.400  93.196  93.182  93.245  93.443  93.434  93.455  93.449  93.418] 
phUaunchJu(171:181)=[93.349  93.238  93.444  93.245  93.195  93.427  93.423  93.217  93.243  93.241 
93.216]; 


end;  %end  of  expendable  if  statement; 
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%  File:  expdatal.m 
%  Used  in  BLOCK: 


%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 

%  Last  Updated:  3 1  OCT  95 
% 

%  Function:  This  function  defines  some  of  the  parameters  for  the  different  expendables 


% 

which  could  be  used. 

% 

% 

exp_type 

% 

1 

iteration  2  Cherry  bomb 

% 

2 

iteration  2  DET  NET 

% 

3 

iteration  2  LEADS 

% 

4 

iteration  2  SpecNet 

% 

5 

iteration  2  Airbag 

% 

6 

iteration  3  Cherry  Bomb 

% 

7 

iteration  3  DET  NET 

% 

8 

iteration  3  SpecNet 

% 

9 

enlarged  DET  NET 

:((:4e  4:  ♦  :fc  *  *  :tc « 3|c  *  :4c  3fc  ifc  *  sfc  3f;  3(e  3|c  3)c  *  :4c *  sfe  :|c  3tc  :4c  3le  :4c  *  *  *  *  *  He  *  He  *  *  *  *  *  *  *  :4c  :4c  :4c 


if  exp_ty pe==  1  %Cherry  Bomb 

expeff_maxradius=20;  %Define  effective  radius  of  expendable  (ft) 
expeff_minpctradius=  I ; 

oper_duration=.l;  %Define  time  duration  over  which  expendable  is  operational  (seconds) 
elseif  exp_type==2  %DETNET 

expeff_maxradius=15;  %Define  effective  radius  of  expendable  (ft) 
expeff_minpctradius=.75 ; 

oper_duration=3.5;  %Define  time  duration  over  which  expendable  is  operational  (seconds) 
elseif  exp_type==3  %PHALANX 

expeff_maxradius=l.2;  %Defme  effective  radius  of  expendable  (ft) 
expeff_minpctradius=l ; 

oper_duration=2;  %Define  time  duration  over  which  expendable  is  operational  (seconds) 

elseif  exp_type==4  %SPECNET 

expeff_maxradius=18;  %Derme  effective  radius  of  expendable  (ft) 
expefL.minpctradius=.75; 

oper_duration=3.5;  %Define  time  duration  over  which  expendable  is  operational  (seconds) 
elseif  exp_type==5  %DUECE  BAG 

expeff_maxradius=7. 1 ;  %Define  effective  radius  of  expendable  (ft) 
expeff_minpctradius=  I ; 

oper_duration=10;  %Define  time  duration  over  which  expendable  is  operational  (seconds) 
elseif  exp_type==:6  %Cherry  Bomb  iteration  3 

expeff_maxradius=4.9;  %Define  effective  radius  of  expendable  (ft) 
expeff_minpctradius=  1 ; 

oper_duration=.002;  %Define  time  duration  over  which  expendable  is  operational  (seconds) 
elseif  exp_type==7  %DETNET  iteration  3 

expeff_maxradius=  10.21 ;  %Define  effective  radius  of  expendable  (ft) 
expeff_minpctradius=:.75; 

oper_duration=3.5;  %Derine  time  duration  over  which  expendable  is  operational  (seconds) 
elseif  exp_type==8  %SpecNet  iteration  3 

expeff_maxradius=l  1.4;  %Define  effective  radius  of  expendable  (ft) 
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expeff_minpctradius=.75; 

oper_duration=3.5;  %Define  time  duration  over  which  expendable  is  operational  (seconds) 
elseif  exp_type==9  %DETNET  enlarged 
expeff_maxradius=  14.24;  %Define  effective  radius  of  expendable  (ft) 

expeff_minpctradius=.75; 

oper_duration=3.5;  %Define  time  duration  over  which  expendable  is  operational  (seconds) 
end; 
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^  Jd  9(c  4c  sk  ***  **  Hcfc  9|c  4c  *  **  ********  **  *  He  *  3|e 

%  File:  records.m 
%  Used  in  newmess.m 
% 

%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 

%Last  Updated:  31  OCT  95 
% 

%  Function:  This  function  saved  the  important  data  from  a  simulation  run  for  a  single  launch.. 

%  If  more  than  one  simulation  was  run,  the  data  for  all  of  the  runs  were 
%  stored  the  specfied  output  file  in  separate  rows. 

%  Each  row  contained  the  following  simulation  run  information: 

%  PK 

%  Time  at  which  missile  was  launched  (shottime) 

%  Time  after  Imissile  launch  at  which  missile  was  detected  (detecttal) 

%  Time  at  which  first  expendable  was  launched  (launchtime) 

%  Time  at  which  expendable  became  operational  (opertimer) 

%  Final  time  of  simulation  (maxtime) 

%  Distance  between  missile  and  aircraft  at  simulation  end  (amrend) 

%  Distance  between  missile  and  a/c  at  the  time  interval  right  before  the  simulation  ended  (amrb4end) 

%  Distance  between  missile  and  expendable  at  simulation  end  (mexsr) 

%  Minimum  distance  between  expendable  and  missile  (minmexsr) 

%  The  percent/100  of  max  expendable  radius  which  was  used  for 
%  expendable  of  simulation  run  (pct_radius) 

%  The  missile  range  at  launch  (missilerange) 

%  Missilelaunch  angle  (missiletheta) 

%  Expendable  type  (exp_type) 

%  whether  was  tracker  or  detector  (tracker) 

%  Tracker  angular  error  standard  deviation  (trackerstd) 

%  Tracker  range  error  standard  deviation  (rangestd) 

%  Tracker  velocity  error  standard  deviation  (missilevelstd) 

%  Whether  detector  was  imaging  or  gimbelled  system  (imaging) 

% 

%Remove  leading  zeros  from  expendable  position  and  velocity 

xexp=nonzeros(xexp); 

yexp=nonzeros(yexp); 

zexp=nonzeros(zexp); 

vxexp=nonzeros(vxexp); 

vyexp=nonzeros(vyexp); 

vzexp=nonzeros(vzexp); 

%Add  a  zero  to  the  begining  of  the  Y  velocity  vector.  The  velocity 
%in  the  Y  direction  starts  at  zero  but  the  procedure  just  above  this 
%one  that  removed  all  of  the  leading  zeros  from  the  expendable 
%position  and  velocity  vectors  also  removed  this  zero  which  actually 
%was  a  valid  point. 

vyexp=[0;vyexp]; 

%Determine  PK 
Probability_of_kill=max(PK) 
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%Make  calculations  of  any  variable  you  wish  to  output. 
maxtime=max(tinie) 
if  maxtime>24.99999 
Probability_of_kilI=- 1 ; 
end; 

launchtime=Iaunch_tinie(size(launch_time,  1 )); 
sizemexslantrange=size(mexslantrange); 
mexsr=mexslantrange(sizemexslantrange(  M )); 

minmexsr=min(mexslantrange((launchtinie-}“.OlO)*lOOO:sizemexsIantrange(l,l))); 
opertimer=opertime(size(opertime,  1 )); 

amrend=amslantrange(size(amslantrange,  I )); 
amrb4end=amslantrange(size(anislantrange,  I )- 1 ); 

%Print  pertinent  data  to  output  file. 

fprintf(outfid;%3.  If  %6.3f  %6.3f  %6.3f  %6.3f  %6.3f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.6f  %3.  If 
%3. 1  f  %6.3f  %6.3f  %6.3f  %3.  lf\n\... 

[Probability__of_kilI  shottime  detecttal  launchtime  opertimer  maxtime  amrend  amrb4end  mexsr  minmexsr 
pct_radius  missilerange... 

missiletheta  exp_type  tracker  trackerstd  rangestd  missilevelstd  imaging]); 
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^  :K:(c 9fe  *  :4c  *  ifc  9fc  9k  *  *  *  *  3(c  sK  « )K  3k  ♦  9(t  *  *  *  *  *  *  *  *  *  *  iic  :{c  HoK 

%  File:  plotits.m 
%  Used  in  newmess.m 


%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 

%Last  Updated:  31  OCT  95 
% 

%  Function:  This  function  first  plots  an  overall  3-D  view  of  the  single  launch  scenario 
%  with  a  sphere  showing  the  lethal  distance  around  the  aircraft,  then,  in  a  second  plot, 
%  plots  and  endgame  view  of  the  scenario  from  four  different  aspects  so  it  is  easier 
%  to  see  what  happened  right  before  the  simulation  ended. 

%  Uses:  endgame.m  and  sphere.m 


%%Plot  A/C,  missile,  expendable  trajectory 
figure 

plot3(xac,yac,zac,xm,ym,zm,xexp,yexp,zexp); 

hold; 


%%PIot  lethal  sphere 

sizexO=size(xac); 

sizeyO=size(yac); 

sizezO=size(zac); 

xOsphere=xac(sizexO(  1 )- 1 ); 

yOsphere=yac(sizeyO(  1 )- 1 ); 

zOsphere=zac(sizezO(  1 )- 1 ); 

sphere(xOsphere,yOsphere,zOsphere,lethaIdist); 

hold; 

%%Plot  endgame  figures 
figure 

subplot(2,2,l); 

endgame; 

subpIot(2,2,2); 

endgame; 

view(0,0); 

subpIot(2,2,3); 

endgame; 

view(90,0); 

subplot(2,2,4); 

endgame; 

view(0,90); 
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^  « :4(  **  ^  :4e  :te  **  :4c  9ie  )(e  :4c  >K  ifc  **  ♦*♦♦♦**  ***** ’***>((%:<(  )|(  iick  3(c  :4e  *  He  3fc  *  ^ 

%  file:  endgame.m 
%  Used  in  plotits.m 


%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%LastUpdated:310CT95 


%  Function:  This  plots  the  simulation  with  a  single  expendable 
%  in  three  dimensions  in  figure  I  and  a  closer  view  in  3  and  2 
%  dimensions  from  different  angles 


% 

^*9K:4c9K***************************************************** 


%Plot  A/Cy  missile,  expendable  trajectory 

plot3(xac,yac,zac,xm,ym,zm,xexp,yexp,zexp); 

hold; 

%Plot  lethal  sphere 

sizexO=size(xac); 

sizeyO=size(yac); 

sizezO=size(zac); 

xOsphere=xac(sizexO(  1 )- 1 ); 

yOsphere=yac(sizeyO(  1 )- 1); 

zOsphere=zac(sizezO(  I )- 1 ); 

sphere(xOsphere,yOsphere,zOsphereJethaldist); 

hold; 

%Scale  axes 

axis([x0sphere-250,x0sphere+250,y0sphere-250,y0sphere+250,z0sphere-250,z0sphere+250]); 
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function  h=sphere(xO,yO,zO,r) 


%  File:  sphere,  m 

%  Used  in  records.m  &  recordm.m 


%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 

%LastUpdated:3lOCT95 

% 

%  Function:  This  function  draws  three  circles;  one  in  the  XY  plane; 

%  one  in  the  XZ  plane  and  one  in  the  YZ  plane.  All 
%  circles  are  centered  about  (xO,yO,zO)  and  have  radius  r. 


^  )fc  :fe  *  :4«  **♦****:((**  4:  :f(  *  *  :4c  **  *******  9te  **  ik  >l«  *****  :fc  ifc  :4e  *  :tc  sfcxc  )|C 


phi=:  1.570796; 
for  theta=0:.01:6.283 

xcircle(theta.*l0+l,phi.*10+l)=x0+(r.*sin(phi).*cos(theta)); 
ycircle(theta.*  1 0+ 1  ,phi.*  10+ 1  )=yO+(r.*sin(phi).*sin(theta)); 
zcircle(  theta.*  1 0+1, phi.*  10+ l)=zO+(r.*cos(phi)); 

X  lcircle(theta.*  10+ 1  ,phi.*  10+ 1  )=z0+(r.*sin(phi).*cos(theta)); 
y  lcircle(theta.*  10+ 1  ,phi.*  10+ 1  )=yO+(r.*sin(phi).*sin(theta)); 
zlcircle(theta.*l0+l,phi.*10+l)=:x0+(r.*cos(phi)); 

x2circle(theta.*10+I,phi.*10+l)=z0+(r.*sin(phi).*cos(theta)); 
y2circle(theta.*  10+ 1 , phi.*  10+ 1  )=x0+(r.*sin(phi).*sin(  theta)); 
z2circle(theta.*10+l,phi.*10+l)=y0+(r.*cos(phi)); 

end 

plot3(xcircle,ycircle,zcircle,zlcircle,y  Icirc!e,xlcircle,y2circle,z2circle,x2circle); 
xlabel('x'); 

ylabel(’y’); 

zlabel(’z'); 

%clear  xcircle  ycircle  zcircle; 
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^  )|C  :)c  :|e  3(c  *  **********  4c  **  >4c  ***  ***>«*******  Jk  9fc :(( ilciK  )|C)K  He  *  * 

%  File:  recordm.m 
%  Used  in  newmess.m 


%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 

%Last  Updated:  31  OCT  95 
% 

%  Function:  This  function  saved  the  important  data  from  a  simulation  run. 

%  If  more  than  one  simulation  was  run,  the  data  for  all  of  the  runs  were 
%  stored  the  specfied  output  file  in  separate  rows. 

%  Each  row  contained  the  following  simulation  run  information: 

%  PK(l-7) 

%  Time  at  which  missile  was  launched  (shottime) 

%  Time  after  Imissile  launch  at  which  missile  was  detected  (detecttal) 

%  Time  at  which  first  expendable  was  launched  (launchtime) 

%  Time  at  which  each  expendable  became  operational  ( 1-7)  (opertimer) 

%  Final  time  of  simulation  (maxtime) 

%  Distance  between  missile  and  aircraft  at  simulation  end  (amrend) 

%  Distance  between  missile  and  a/c  at  the  time  interval  right  before  the  simulation  ended  (amrb4end) 

%  Distance  between  missile  and  each  expendable  at  simulation  end  (mexsr) 

%  Minimum  distance  between  each  expendable  and  missile  (minmexsr) 

%  The  percent/ 100  of  max  expendable  radius  which  was  used  for 
%  each  expendable  of  simulation  run  (pct_radius) 

%  The  missile  range  at  launch  (missilerange) 

%  Missilelaunch  angle  (missiletheta) 

%  Expendable  type  (exp_type) 

%  whether  was  tracker  or  detector  (tracker) 

%  Tracker  angular  error  standard  deviation  (trackerstd) 

%  Tracker  range  error  standard  deviation  (rangestd) 

%  Tracker  velocity  error  standard  deviation  (missilevelstd) 

%  Whether  detector  was  imaging  or  gimbelled  system  (imaging) 

% 

(^*************Hc  *******************  ******************** 


%Remove  leading  zeros  from  expendable  position  and  velocity 

xexp  l=nonzeros(xexp  I ); 

yexp  l=nonzeros(yexp  1 ); 

zexp  l=nonzeros(zexp  1 ); 

xexp2=non2eros(xexp2); 

yexp2=nonzeros(yexp2); 

zexp2=nonzeros(zexp2); 

xexp3=nonzeros(xexp3); 

yexp3=nonzeros(yexp3); 

zexp3=nonzeros(zexp3); 

xexp4=nonzeros(xexp4); 

yexp4=nonzeros(yexp4); 

zexp4=nonzeros(zexp4); 

xexp5=nonzeros(xexp5); 

y  exp5=nonzeros(y  exp5 ) ; 

zexp5=no  nzeros(  zexp5 ) ; 

xexp6=nonzeros(xexp6); 

yexp6=nonzeros(yexp6); 
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zexp6=non2eros(zexp6); 

xexp7=nonzeros(xexp7); 

yexp7=nonzeros(yexp7); 

zexp7=nonzeros(zexp7); 

vxexp  l=:nonzeros(vxexp  I ); 

vy  exp  1  =nonzeros(vyexp  1 ) ; 

vzexpl=nonzeros(vzexpl); 

vxexp2=nonzeros(vxexp2); 

vyexp2=nonzeros(vyexp2); 

vzexp2=nonzeros(vzexp2); 

vxexp3=nonzeros(vxexp3); 

vyexp3=nonzeros(vyexp3); 

vzexp3=nonzeros(vzexp3); 

vxexp4=nonzeros(vxexp4); 

vyexp4=nonzeros(vyexp4); 

vzexp4=:nonzeros(vzexp4); 

vxexp5=nonzeros(  vxexp5 ) ; 

vyexp5=nonzeros(vyexp5); 

vzexp5=nonzeros(vzexp5); 

vxexp6=nonzeros(vxexp6); 

vyexp6=nonzeros(vyexp6); 

vzexp6=nonzeros(vzexp6); 

vxexp7=nonzeros(vxexp7); 

vyexp7=nonzeros(vyexp7); 

vzexp7=nonzeros(vzexp7); 

%Add  a  zero  to  the  begining  of  the  Y  velocity  vector.  The  velocity 
%in  the  Y  direction  starts  at  zero  but  the  procedure  just  above  this 
%one  that  removed  all  of  the  leading  zeros  from  the  expendable 
%position  and  velocity  vectors  also  removed  this  zero  which  actually 
%was  a  valid  point. 

vyexpl=:[0;vyexpl]; 
vyexp2=[0;vyexp2]; 
vyexp3=i0;vyexp3]; 
vyexp4=[0;  vyexp4] ; 
vyexp5=[0;vyexp5]; 
vyexp6=[0;  vyexp6] ; 
vyexp7=[0;vyexp7]; 

%Make  calculations  of  any  variable  you  wish  to  output. 

maxtime=max(time) 

if  maxtime>24.9999999 

end; 

launchtime=launch_time(size(launch_time,l)); 
sizemexslantrange=size(mexslantrange  1 ); 
mexsr(  1 , 1  )=mexslantrange  I  (sizemexslantrange(  1,1)); 
mexsr(  1 ,2)=mexslantrange2(sizemexslantrange(  1,1)); 
mexsr(  l,3)=mexslantrange3(sizemexslantrange(  1, 1 )); 
mexsr(  1 ,4)=mexslantrange4(sizemexslantrange(  1,1)); 
mexsr(  1 ,5)=mexslantrange5(sizemexslantrange(  1,1)); 
mexsr(  l,6)=mexslantrange6(sizemexslantrange(  1, 1)); 
mexsr(  1 ,7)=mexslantrange7(sizemexslantrange(  1,1)); 
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minmexsr(  1 , 1  )=min(mexslantrange  I  (min((  1 000*(launchtime+.0 1  +0*expdeIay  )),sizemexslantrange(  1,1)- 
l  ):sizemexslantrange(  1 , 1 ))); 

minmexsr(  1 ,2)=niin(mexslantrange2(min((  1 000*(Iaunchtime+.0 1 + 1  *expdelay  )),sizemexslantrange(  1,1)- 
1 )  :sizemexslantrange(  1 , 1 ))); 

minmexsr(l,3)=min(mexslantrange3(min((l000*(launchtime+.0l+2*expdelay)),sizemexslantrange(l,l)- 
I  ):sizemexslantrange(  1 , 1 ))); 

minmexsr(  1 ,4)=min(mexslantrange4(min((  1 000*(launchtime+.0 1  +3  *expdelay  )),sizemexslantrange(  1,1)- 
l):sizemexsiantrange(l,l))); 

minmexsr(  1 ,5)=min(mexslantrange5(min((  1 000*(Iaunchtime+.0 1  +4*expdelay  )),sizemexslantrange(  1,1)- 
l  ):sizemexslantrange(  1 , 1 ))); 

minmexsr(  1 ,6)=min(mexslantrange6(min((  1 000*(launchtime+.0 1  +5*expdelay  )),sizemexslantrange(  1,1)- 
l  ):sizemexslantrange(  1,1))); 

minmexsr(l,7)=niin(mexslantrange7(min((1000*(launchtime+,01+6*expdelay)),sizemexslantrange(l,l)- 

1  ):sizennexslantrange(  1 , 1 ))); 

opertimer=opertime(size(opertime,l),:); 

amrend(  1 , 1  )=amslantrange(size(amslantrange,  1)); 
amrb4end(  1 , 1  )=:amslantrange(size(amslantrange,  1 )- 1 ); 

PK(l,l)=max(PKl); 

PK(i,2)=max(PK2); 

PK(l,3)=max(PK3); 

PK(l,4)=max(PK4); 

PK(l,5)=max(PK5); 

PK(l,6)=max(PK6); 

PK(l,7)=max(PK7); 

%Print  pertinent  data  to  output  file. 

if  maxtime=25 
PK(l,l)=-l; 
end; 

fprintf(outfid,  ’%3. 1 f  %3.  If  %3.  if  %3. 1  f  %3. 1  f  %3, 1  f  %3.  If  %6.3f  %5.3f  %6.3f  %6.3f  %6.3f  %6.3f 
%6.3f  %6.3f  %6.3f  %6.3f  %6.3f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f 
%6,2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.2f  %6.6f  %3.  If  %3. 1  f 
%6.3f  %6.3f  %6.3f  %3.1An’,  [PK  shottime  detecttal  launchtime  opertimer  maxtime  amrend  amrb4end 
mexsr  minmexsr  pct_radius  missilerange  missiletheta  exp_type  tracker  trackerstd  rangestd  missilevelstd 
imaging]); 
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%  File:  plotitm.m 
%  Used  in  newmess.m 


%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 

%  Last  Updated:  31  OCT  95 
% 

%  Function:  This  function  first  plots  an  overall  3-D  view  of  the  multiple  launch  scenario 
%  with  a  sphere  showing  the  lethal  distance  around  the  aircraft,  then,  in  a  second  plot, 

%  plots  and  endgame  view  of  the  scenario  from  four  different  aspects  so  it  is  easier 
%  to  see  what  happened  right  before  the  simulation  ended. 

%  Uses:  endgamem.m  and  sphere.m 
% 


(^*3|cH<****:t:****:4«  *****:<(***  **)|(***)tc*****4())(**********:^:fc***He* 


%Plot  A/C,  missile,  expendable  trajectory 
figure 

plot3(xac,yac,zac,xm,ym,zm,xexp  1  ,yexp  1  ,zexp  1  ,xexp2,yexp2,zexp2,xexp3,yexp3  ,zexp3,xexp4,yexp4,zexp 

4,xexp5,yexp5,zexp5,xexp6,yexp6,zexp6,xexp7,yexp7,zexp7); 

hold; 

%Plot  lethal  sphere 

sizexO=size(xac); 

sizeyO=size(yac); 

sizezO=size(zac); 

xOsphere=xac(sizexO(  1 )- 1 ); 

yOsphere=yac(sizeyO(  I )- 1 ); 

zOsphere=zac(sizezO(  1 )- 1 ); 

sphere(xOsphere,yOsphere,zOsphere,lethaIdist); 

hold; 

%Plot  endgame  figures 
figure 

subplot(2,2,l); 

endgamem; 

subpIot(2,2,2); 

endgamem; 

view(0,0); 

subpIot(2,2,3); 

endgamem; 

view(90,0); 

subplot(2,2,4); 

endgamem; 

view(0,90); 
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:|c  9(e  *  *  *  *  :ic  :4c «  *  *  9t(  *  *  *  *  *  *  *  :|t « :4csK  *  *  ’K  ♦ *  )K  *  *  *  *  *  9k  *  3»e  *  *  :fe 

%  file:  endgamem.m 
%  Used  in  plotitsm.m 


% 

%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%Last  Updated:  31  OCT  95 
% 

%  Function:  This  function  plots  the  simulation  with  multiple  expendables 
%  in  three  dimensions  in  figure  1  and  a  closer  view  in  3  and  2 
%  dimensions  from  different  angles 


^:k5k5k*9k  5k  sk5k*5k  5k  3k3k  3k  sk9k***5k  5k*  3k*5k5k  *************  *sK****=k:k54«9k  9k**  NeskJk** 


%Plot  A/C,  missile,  expendable  trajectory 

plot3(xac,yac,zac,xm,ym,zm,xexpI,yexpl,zexpl,xexp2,yexp2,zexp2,xexp3,yexp3,zexp3 

xexp4,yexp4,zexp4,xexp5,yexp5,zexp5,xexp6,yexp6,zexp6,xexp7,yexp7,zexp7); 


hold; 

%Plot  lethal  sphere 

sizexO=size(xac); 

sizeyO=size(yac); 

sizezO=size(zac); 

xOsphere=xac(sizexO(  1 )- 1 ); 

yOsphere=yac(sizeyO(  I )- 1 ); 

zOsphere=zac(sizezO(  1 )- 1 ); 

sphere(xOsphere,yOsphere,zOsphere,Iethaldist); 

hold; 

%Scale  axes 

axis([xOsphere-(Iethaldist+ 1 50),x0sphere+(lethaldist4- 1 50),y0sphere-(lethaldist+ 1 50),. . . 
y0sphere+(lethaldist+150),z0sphere-(lethaldist+l50),z0sphere+(lethaldist+150)]); 
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function  [ret, xO,str,ts,xts]=acmeblck(t,x,u, flag); 

%ACMEBLCK  is  the  M-file  description  of  the  SIMULINK  system  named  ACMEBLCK. 
%  The  block-diagram  can  be  displayed  by  typing:  ACMEBLCK. 

% 

%  SYS=ACMEBLCK(T,X,U.FLAG)  returns  depending  on  FLAG  certain 
%  system  values  given  time  point,  T,  current  state  vector,  X, 

%  and  input  vector,  U. 

%  FLAG  is  used  to  indicate  the  type  of  output  to  be  returned  in  SYS. 

% 

%  Setting  FLAG=1  causes  ACMEBLCK  to  return  state  derivatives,  FLAG=2 
%  discrete  states,  FLAG=3  system  outputs  and  FLAG=4  next  sample 

%  time.  For  more  information  and  other  options  see  SFUNC. 

% 

%  Calling  ACMEBLCK  with  a  FLAG  of  zero: 

%  [SIZES]=ACMEBLCK([],[],[],0),  returns  a  vector,  SIZES,  which 

%  contains  the  sizes  of  the  state  vector  and  other  parameters. 

%  SIZES(  I )  number  of  states 

%  SIZES(2)  number  of  discrete  states 

%  SIZES(3)  number  of  outputs 

%  SIZES(4)  number  of  inputs 

%  SIZES(5)  number  of  roots  (currently  unsupported) 

%  SIZES(6)  direct  feedthrough  flag 

%  SIZES(7)  number  of  sample  times 

% 

%  For  the  definition  of  other  parameters  in  SIZES,  see  SFUNC. 

%  See  also,  TRIM,  LINMOD,  LINSIM,  EULER,  RK23,  RK45,  ADAMS,  GEAR. 

%  Note:  This  M-file  is  only  used  for  saving  graphical  information; 

%  after  the  model  is  loaded  into  memory  an  internal  model 
%  representation  is  used. 

%  the  system  will  take  on  the  name  of  this  mfile:' 

sys  =  mfilename; 

new_system(sys) 

simver(1.3) 

if  (0  ==  (nargin  +  nargout)) 

set_param(sys,'Location', [4,42,628, 468]) 
open_system(sys) 
end; 

set_param(sys,'aIgorithm',  ’Linear') 
set_param(sys, ’Start  time’,  ’0.0') 
set_param(sys,'Stop  time’,  '80') 
set_param(sys,’Min  step  size',  ’0.001’) 
set_param(sys,'Max  step  size',  ’0.001') 
set_param(sys, ’Relative  error','  le-3’) 
set_param(sys,'Return  vars’,  ") 


%  Subsystem  'A//C', 
new_system([sys,’/’,’A//C']) 

set_param([sys,’/',’A//C'], ’Location’, [102, 224, 1134,817]) 

add_block(’built-in/To  Workspace’,[sys,'/',’A//C/zac  1']) 
set_param([sys,’/’,' A//C/zac  I '],... 
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'mat-name'/zac',... 

'buffer’/lOOOOOOOOO',... 

’position’,[730, 132,780, 148]) 

add_block('buiIt-in/To  Workspace’, [sys,7','A//C/yac  1’]) 
seLparam([sys,‘/’,'A//C/yac  r],... 

'mat-name',’yac’,... 

'buffer’,’1000000000’,... 

'position’, [865, 407, 9 15,423]) 

add_bIock('buiIt-in/Mux',[sys,7,’A//C/ac  pos']) 
set_param([sys,’/',*A//C/ac  pos’],... 

’orientation’,  1,... 

’inputs’,’3',... 

’position',[9 14,365,966,405]) 

add_block(’built-inyTo  Workspace’, [sys,’/’,’A//C/xac  1’]) 
set_param([sys,’/’,'A//C/xac  1 '],... 

’mat-name',’xac’,.,. 

’buffer’,’ 1000000000’,... 

’position',[890,2 17,940,233]) 

add_block(’built-in/Sum’,[sys,’/’.’A//C/Sum  13']) 
set_param([sys,’/',’A//C/Suml3’],... 

’inputs’,'^-’,... 

’position’, [820, 259,840,28 1]) 

add_block('buiIt-in/Sum’,[sys,’/',’A//C/Sumn3c’]) 

set_param([sys,’/’,’A//C/Sumn3c’],... 

'position’,[745,338,770,362]) 

add_block(’buiIt-in/Gain',[sys,’/’,'A//C/Gain2’]) 

set_param([sys,’/',’A//C/Gain2'],... 

’Gain’,’-!’,... 

’position’,[8 10,340,830,360]) 

add_block('buiit-in/Product’,[sys,’/’,'A//C/m22']) 

set_param([sys,’/’,’A//C/m22’],... 

’position’, [600,480,625,500]) 

add_bIock(’built-in/Constant’,[sys,‘/',’A//C/AC  crosswind’]) 
set_param([sys,’/’,'A//C/AC  crosswind'],... 

’Value’, ’accrosswind’,... 

'position’,[460,455, 555,475]) 

add_block(’buiIt-inAVhite  Noise’, [sys,'/’,[’A//C/White  Noise',  1 3,‘3']]) 
set_parain([sys,’/’,[’A//CAVhite  Noise’,  13, ’3’]],... 

'Seed’,’noiseseed(3)’,... 

’position’, [435, 395 ,455, 4 15]) 


%  Subsystem  [' Ay/C/hoId3’,  1 3,'sample=  1  ’] . 
new_system([sys,’/',[’A//C/hoId3',13,'sampIe=r]]) 

set.param([sys,’/’,[’A//C/hoId3’,13,’sample=r]],’Location’,[5l  1,151,915,322]) 
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adci_block('built-in/Zero-Order  Hold\[sys,7\['A//C/hoId3M3,'sample=l/Zero-OrderM3/Hold']]) 
set_param([sys,7\['A//C/hoId3M3,'sample=!/Zero«OrderM3,’Hold’]],... 

'Sample  time\Ts*,... 

'position', [  100,29, 135,6 1  ]) 

add_bloclc('built-in/Gain',[sys,'/’,[’A//C/hold3',l3,'sample=l/Gain']]) 
set_param([sys,'/’,['A//C/hold3’,13,‘sample=  I/Gain’]],... 

'Gain','l/Ts',... 

'position',[285, 33,325, 77]) 

add_block('built-inAntegrator',[sys,'/’,['A//C/hold3',13,’sample=l/Integrator']]) 
set_param([sys,'/',['A//C/hold3',  13,'sample=  i/Integrator']],... 

'position', [235, 42, 260, 68]) 

add_block('built-in/Sum',[sys,'/',[’A//C/hold3',I3,’sample=l/Sum']]) 

set_param([sys,'/',[’A//C/hoId3',13,'sample=l/Sum’]],.., 

'inputs’,'+-’„.. 

'position’,[  1 90,37,2 1 0,68 1) 

add_bIock(’built-in/Unit  Delay',[sys,'/',['A//C/hold3',  1 3,'sample=  1/Unit  Delay']]) 
set_param([sys,'/',[’A//C/hold3’,l3,'sample=l/Unit  Delay']],... 

'Sample  time',’Ts',... 

'position', [90,93, 140, 1171) 

add_block('built-in/Inport',[sys,'/’,[’A//C/hold3',13,'sampie=l/input’]]) 
set_param([sys,'/',['A//C/hold3*,  1 3,’sample=  1/input']],... 

'position', [25,35,45 ,55]) 

add_block(’built-in/Outport',[sys,'/',['A//C/hold3',13,'sample=  1/output']]) 
set_param([sys,'/',['A//C/hoId3',13,'sample=  1/output']],... 

'position',[345, 45,365,65]) 

addJine([sys,’/',['A//C/hold3',13,'sample=r]],[330,55;340,55]) 

addJine([sys,’/’.['A//C/hold3',I3,'sample=r]],[265,55;280,55]) 

addJine([sys,'/’,['A//C/hold3',I3,'sample=l']],[215,55;230,55]) 

addJine([sys,’/',[’A//C/hold3',13,'sample=l']],[l45,105;165,105;165,60;185,60]) 

addJine([sys,'/',['A//C/hold3',  13,'sample= !']],[  140,45;  185,45]) 

add_line([sys,'/',['A//C/hold3’,13,'sample=r]],[50,45;95,45]) 

addJine([sys,'/’,['A//C/hold3’,13,'sample=r]],[65,45;65,105;85,105]) 

set_param([sys,'/',['A//C/hold3',13,'sample=l']],,., 

'Mask  Display’,’plot(0,0, 100, 100,[90,70,50, 30, 10],[60,40,80, 30,20])',... 

'Mask  Type', 'First-Order  Hold',... 

'Mask  Diaiogue','First-Order  HoldlSample  Time:',... 

'Mask  Translate’,’Ts=@  1 ;’) 
set_param([sys,'/',['A//C/hold3',13,'sample=r]],... 

'Mask  Help’,'Implements  a  First-Order  sample-and-hold  latch  operating  at  the  sampling 
interval  you  specify.',... 

'Mask  Entries',' IV) 


%  Finished  composite  block  ['A//C/hold3',13,'sample=r]. 

set_param([sys,'/',['A//C/hold3',13,’sampIe=r]],... 

'position',[490,389,525,421]) 
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add_block('built-in/Product\[sys//*,'A//C/Productn3']) 

set_param([sys//’/A//C/Productn3'],... 

•position\[560, 390,585.4 10]) 

add_block('built-in/Sum',[sys,7’/A//C/Sumn3a’]) 

set_param([sys,'/','A//C/Sumn3a’],... 

’position\[655, 383,680.407]) 

add_block(’built*‘in/Mux',[sys,*/','A//C/Muxl6’]) 

set_param([sys,’/’.’A//C/MuxI6'],... 

‘inputsV2’.... 

’position'.[625, 181.655,214]) 

add_biock('buiIt-in/Fcn',[sys,7’.'A//C/Fcn']) 

set_param([sys,’/'.'A//C/Fcn’],... 

’position',[370, 148,445, 172]) 

add_block(’buiIt-in/Fcn',[sys,T,'A//C/Fcn6’l) 

set_param([sys.7’,’Ay/C/Fcn6’],... 

’Expr','cos(u[l  ])',... 

’position', [490,274,570, 296]) 

add_bIock('built-in/Fcn'.[sys,7'.'A//C/Fcn4’]) 

set_param([sys,’/','A//C/Fcn4’],... 

’position’, [490, 339.570,361]) 

add_block('built-in/Product',[sys,’/’,’A//C/Product']) 

set_param([sys,'/’,’A//C/Product’],... 

’position’.[485,155,5l0,175]) 

add_block('built-in/Integrator'.[sys,'/*,'A//C/Int  I  ’]) 
set_param([sys,7’,’A//C/Tnt  I  ’],... 

'position’,[550, 155,570, 175]) 

add_block(’buiIt-in/Integrator’,[sys.7’,’A//C/Int’]) 

set_param([sys,’/',’A//C/Int’],... 

'position’.[550,2 15,570.235]) 

add_bIock(’built-in/Fcn’,[sys,T.'A//C/Fcn  1 ']) 
set_param([sys,'/'.'A//C/Fcn  1’],... 

'Expr’,’cos(u[l  ])',... 

’position'.[365, 219, 445.241]) 

add_block('built-in/Product’,[sys,’/’.’A//C/Productr]) 

set_param([sys,7','A//C/Productr],... 

’position', [485, 2 1 5,5 10,235]) 

add_block('built-in/Product',[sys.'/’,'A//C/m5’]) 

set_param([sys.7,’A//C/m5']..., 

’position',[605,300, 630,320]) 

add_block(’built-in/Product',[sys,7’,'A//C/m4’]) 

set_param([sys,'/’,’A//C/m4'],... 

’position', [600, 265,625 ,285]) 
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add_biockCbuiIt-in/Note',[sys,T,'A//C/c’l) 

set_param([sys,7,’A//C/c’],... 

’position’, [645, 260, 650,265]) 

add_bIock(’buiIt-in/Note’,[sys,'/’,'Ay/C/d‘]) 

set_param([sys,'/’,'A//C/d’],... 

’position', [645, 3 10,650,3 15]) 

add_block(’built-inAVhite  Noise’, [sys,V',['A//CAVhite  Noise’,  13,'!’]]) 
set_param(  [sy  $,'/’,[' A//C/White  Noise’,  1 3,’  I  ’]],.., 

’Seed’,’noiseseed(  I )’,... 

’position’, [85, 45, 105,65]) 

add_block(’built-in/Product’,[sys,7,’A//C/mnr]) 
set_param([sys,’/’,’A//C/mn  r],.,. 

’position’, [225,95, 250, 115]) 

add_block('buiIt-in/Sum’,[sys,’/’,’A//C/sumn  I  b’]) 
set_param([sys,’/’,’A//C/sumn  1  b'],... 

’position’, [290, 100, 310,120]) 

add_block(’buiIt4n/Constant',[sys,'/’,[’A//C/a//c  climb’,  13,‘veloicity',  13,’’]]) 
set_param([sys,'/’,[’A//C/a//c  climb’,  13,’veloicity',  13,"]],... 

’Value’, ’acvel’,... 

’position’, [170, 147,210, 163]) 

add_bIock(’buiIt-in/Constant',[sys,’/’,[’A//C/AC  Velocity',  1 3, ‘Noise  std  dev']]) 
set_param([sys,’/',[’Ay/C/AC  Velocity’,  13,'Noise  std  dev’]],... 
’Value’,’acvelstd',... 

’position’,[85, 100, 145,120]) 


%  Subsystem  [’A//C/hold I’, i3,’sample=.25’]. 
new_system([sys,’/’,[’A//C/holdr,13,’sampie=.25']]) 

set_param([sys,’/’,[’A//C/hoId  r,  13, ’sample=.25']],‘Location’,[5 1 1,151,915,322]) 

add_block(’built-in/Zero-Order  Hold’,[sys, '/’,[’A//C/holdr,  1 3, ‘sample^. 25/Zero-Order’,  13, 'Hold']]) 
set_param([sys,’/’,[’A//C/holdr,I3,’sample=.25/Zero-Order’,13,’Hold’]],... 

’Sample  time’,'Ts’,... 

’position’,[l00,29,135,61]) 

add_block(’built-in/Gain’,[sys,'/’,[’A//C/holdr,l3,’sample=.25/Gain’]]) 
set_param([sys,'/',['A//C/hold  I  ’,  1 3,'sample=.25/Gain’]] ,... 

’Gain’,’l/Ts‘,... 

’position’,[285,33, 325,77]) 

add_block('built-in/Integrator’,[sys,’/’,[’A//C/holdr,13,’sample=.25/Integrator*]]) 

set_param([sys,’/*,[’A//C/holdr,13,’sample=.25/Integrator’]],... 

’position',[235,42,260,68]) 

add_bIock('buiIt-in/Sum’,[sys,'/’,[’A//C/holdr,13,'sample=.25/Sum’]]) 

set_param([sys,’/’,[’A//C/holdl’,13,’sample=.25/Sum’]],... 

'inputs',’-**-',... 

'position',[190,37,210,68]) 
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add_block('built-inAJnit  Delay',[sys,7',['A//C/holdr,13,’sample=.25AJnit  Delay']]) 
set_param([sys,'/',['A//C/holdr,13,'sample=.25/Unit  Delay']],... 

'Sample  time'.'Ts',... 

'position', [90,93, 140, 117]) 

add_block('built-in/Inport',[sys.'/',['A//C/hold  1 ',  1 3,'sample=.25/input']]) 
set_param([sys,'/',['A//C/hold  1 ',  1 3,’sample=.25/input']] ,.. . 

'position'.[25.35,45,55]) 

add_block('built-in/Outport',[sys,'/’,['A//C/hold  1 ',  1 3,'sample=.25/output']]) 
set_param([sys,’/',['A//C/holdr,13,'sample=.25/output']],... 

'position', [345,45,365,65]) 

addJine([sys,'/',['A//C/hold  1 ',  I3,'sample=.25']],[330,55:340,55]) 
add_line([sys,'/’.['A//C/holdl'.13,'sample=.25']], [265,55:280,55]) 
addJine([sys,'/',['A//C/holdl'.t3,'sampie=.25']], [2 15,55:230,55]) 
addJine([sys,'/',['A//C/holdr,13,'sample=.25']],[145,105:165,105:165,60:185,60]) 
addJine([sys,'/',['A//C/holdr,13,'sample=.25']],[140,45:185,45]) 
add_line([sys,'/’,['A//C/holdl',13,'sample=.25']],[50,45:95,45]) 
addJine([sys,'/',['A//C/hoIdr,13,'sample=.25']],[65,45:65,105;85,105]) 
set_param([sys,'/',['A//C/hold  1 ',  1 3,'sample=.25']],... 

'Mask  Display','plot(0,0, 100, 1 00, [90, 70,50,30, 10],[60,40,80,30,20])',... 

'Mask  Type','First-Order  Hold',... 

'Mask  Dialogue','First-Order  HoldlSample  Time:') 
set_param([sys,'/',['A//C/holdr,13,'sample=.25’]],... 

'Mask  Translate','Ts=@  1 :',... 

'Mask  Help','lmplements  a  First-Order  sample-and-hold  latch  operating  at  the  sampling 
interval  you  specify.',... 

'Mask  Entries','.25\/') 


%  Finished  composite  block  ['A//C/holdr,13,'sample=.25']. 

set_param([sys,y',['A//C/hoIdr,13,'sample=.25']],... 

'position',[145,39,180,71]) 

add_block('built-in/Outport',[sys,'/','A//C/AC  velocity  (z,x)']) 
set_param([sys,'/','A//C/AC  velocity  (z,x)'],... 

'position',[  1020, 190, 1040,2 1 0]) 

add_block('built-in/Outport',[sys,'/','A//C/AC  position  (x,y,z)']) 
set_param([sys,'/','A//C/AC  position  (x,y,z)'],... 

'orientation',  1,... 

'Port','2',... 

’position',[  1005,430, 1025,450]) 

add_block('built-in/Constant',[sys,'/',['A//C/a//c  climb',  13,'angler]]) 
set_param([sys,'/',['A//C/a//c  climb',  1 3,'angle  1 ']],... 
'Value','acclimbangle',... 

'position',[  120,342,205,358]) 

add_block('built-in/Sum',[sys,'/','A//C/Sumn2b']) 

set_param([sys,'/','A//C/Sumn2b'],... 

'position',[235,295,255,3 15]) 
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add_block('built-in/Constant'.[sys,'/',['A//C/Ac  AngleM3,'std  dev’]]) 
set_param([sys.'/’,['A//C/Ac  Angle',  1 3,'std  dev']],... 

'Value', 'acangstd',... 

’position’,[70,305, 125,325]) 

add_block('built-in/Product',[sys,'/’,'A//C/mn2']) 

set_param([sys,'/','A//C/mn2’],... 

'position’,[  1 80,290,205,3 10]) 


%  Subsystem  ['A//C/hold2',13,'sample=r]. 
new_system([sy  s,'/',  [’ A//C/hold2’,  1 3,'sample=  1’]  ]) 

set_param([sys,'/’,[’A//C/hold2',  1 3,’sample=  1  ']],'Location',[5 11,151 ,9 15,322]) 

add_block('built-in/Zero-Order  Hold',[sys,’/',['A//C/hold2',13,’sample=l/Zero-Order',13,'Hold']]) 
set_param([sys,'/',['A//C/hold2',  1 3,'sample=  1 /Zero-Order',  1 3,’Hold’]],... 

'Sample  time’.Ts',... 

'position’,[  100,29, 135,61]) 

add_block(’built-in/Gain',[sys,'/',(’A//C/hold2',13,'sample=  1/Gain’]]) 
set_param([sys,'/',['A//C/hold2',13,'sample=l/Gain']],... 

'Gain',’l/Ts',... 

’position',[285,33,325,77]) 

add_block('built-in/Integrator',[sys,'/’,['A//C/hold2',  1 3,’sample=  1/Integrator']]) 
set_param([sys,’/',[’A//C/hold2',13,'sample=l/Integrator']],... 

'position’,[235,42,260,68]) 

add_block('built-in/Sum',[sys,’/',['Ay/C/hold2',13,’sample=  1/Sum']]) 
set_param([sys,'/',['A//C/hold2',13,'sample=  1/Sum’]],... 

'inputs',’+-',... 

'position',[  1 90,37,2 10,68]) 

add_block('built-in/Unit  Delay',[sys,'  ',['A//C/hold2',13,'sample=l/Unit  Delay']]) 
set_param([sys,'/',['A//C/hold2',13,’sample=l/Unit  Delay']],... 

'Sample  time'.'Ts',... 

’position',[90.93,140,117]) 

add_block('built-in/Inport',[sys,'/',['A//C/hold2',13,'sample=  1/input’]]) 
set_param([sys,'/',['A//C/hold2',13,’sample=l/input']],... 

'position',[25,35,45,55]) 

add_block('built-in/Outport',[sys,'/’,['A//C/hold2',13,'sample=l/output']]) 
set_param([sys,'/',['A//C/hold2',  13,'sample=  1/output']],... 

'position',[345,45,365,65]) 

addJine([sys,’/’,[’A//C/hold2',13,’sample=l’]],[330,55;340.55]) 
addJine([sys,’/’,['A//C/hold2',13,’sample=r]],[265,55;280,55]) 
add_line([sys,'/’,[’A//C/hold2’,13,'sample=l']],[215,55;230,55]) 
addJine([sys,’/',['A//C/hold2',  13,’sample=r]],[  145,105;  165, 105;  165,60;185,60]) 
addJine([sys,'/’,[’A//C/hold2',13,’sample=l’]],[140,45;185,45]) 
addJine([sys,’/',['A//C/hold2',13,'sample=r]],[50.45;95,45]) 
addJine([sys.’/’,[’A//C/hold2’,13,'sample=r]],[65,45;65,105;85,105]) 
set_param([sys,'/',[' A//C/hold2',  1 3,’sample=  1 ']],... 

'Mask  Display’,’plot(0,0.100,100,[90,70,50,30,10],[60,40,80,30,20])’,... 
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'Mask  Type’, 'First-Order  Hold’,... 

'Mask  Dialogue’,'First-Order  HoldlSample  Time:',... 

'Mask  TransIate','Ts=@  1 ;') 
set_param([sys,'/',['A//C/hold2’,  I3.'sample=  1 

'Mask  Help', 'Implements  a  First-Order  sample-and-hold  latch  operating  at  the  sampling 
interval  you  specify.',... 

'Mask  Entries’,’ I V) 


%  Finished  composite  block  {'A//C/hold2’,13,'sample=r]. 

set_param([sys,'/',['A//C/hold2',  I3,'sample=  1']],... 

’position',[120,239,155,27l]) 

add_bIock('built-in/White  Noise',[sys,'/',[’A//CAVhite  Noise',13,'  2']]) 
set_param([sys,’/’,[’A//CAVhite  Noise',13,'  2’]],... 

'Seed',’noiseseed(2)',... 

'position',[70,245,90,265]) 

add_bIock('built-in/Constant’,[sys,’/',['A//C/Missile  range  ',13, 'from  AJ/C  rotation’]]) 
set_param([sys,'/',['A//C/Missile  range  ',13,’from  A//C  rotation’]],... 
'Value’,'missilerange',... 

’position’,[340,296,420,3I4]) 

add_block('built-in/Constant',[sys,’/’,['A//C/Initial  missile  angle',  13,'in  XY  plane']]) 
set_param([sys,'/',['A//C/Initial  missile  angle',  13,'in  XY  plane’]],... 
'Value',’missiletheta’,... 

'position',[335.34 1 ,425,359]) 

add_block('built-in/Inport',[sys,'/','A//C/Time']) 

set_param([sys,'/','A//C7rime'],... 

'position', [345,485,365,505]) 

add_block('built-in/Constant’,[sys,'/’,['A//C/ACypos  ’,  13,'std  dev.']]) 
set_param([sys,'/',['A//C/ACypos  ’,  13,'std  dev.']],... 

'Value','acystd',... 

'position', [365,440,420,460]) 

add_block('built-inyNote',[sys,’/’,’A//C/BLOCK:  A//C']) 
set_param([sys,'/’,'A//C/BLOCK;  A//C’],... 

'position',[500,550,505,555]) 
addJine([sys.'/',’A//C'],[575, 165:955, 165;955,360]) 
add_line([sys,'A'A//C’].[685,165;685,I40;725,140]) 
addJine([sys,’/',’A//C'],[835,350:940,360]) 
add Jine([sys,’/','A//C'], [845, 350:845,415:860,415]) 
addJine([sys,’/’,'A//C’],[845,270:925,270:925,360]) 
addJine([sys,’/',’A//C'],[875,270:885,225]) 
add_line([sys,’/’,'A//C'],[590,400:615,400:615, 390:650,390]) 
add_line([sys,'/’,’A//C’],[630,490:635,490:635,400:650,400]) 
addJine([sys,’/',’A//C’],[560,465:570,465:570,485:595,485]) 
addJine([sys,’/’,’A//C'], [460,405:485,405]) 
addJine([sys,’A’A//C’], [530, 405:535, 405:535,395:555,395]) 
addJine([sys,'/','A//C’],[685, 395:720,395:720, 355:740, 355]) 
addJine([sys,'/’,’A//C’],[130,3 15:145,315:145, 305:175, 305]) 
add_line([sys,’/’,’A//C’], [160,255:165, 255:175,295]) 
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addJine([sys,’/’,’A//C], (95,255;  1 15,255]) 

add_line([sys,’/’,'A//C],[210,300;230,300]) 

addJine([sys,’/’,’A//C],(  150, 1 10;220, 1 10]) 

addJine([sys,r,'A//C],[255, 105;285, 105]) 

addJine([sys,’/*,'A//C'],[185,55;205,55;205,100;220,100]) 

addJine([sys,T,'A//C],[110,55;140.55]) 

add  Jine([sys,V,'A//C],[5 15,225 ;545, 225]) 

addJine([sys,'/’,'A//C].(525,225;525,205;620.205]) 

addJine([sys,'/’,'A//C],[5 15, 165:545, 165]) 

addjine([sys,'/',' Ay/C], [525, 165:525, 190:620, 190]) 

add_line([sys,'/’,'A//C],(775, 350:805,350]) 

addJine([sys,7','A//C], [635,3 10;680,3 10;680,345;740,345]) 

addJine([sys,’/’,'A//C], [425,450:54 1 ,450;54 1 ,405:555,405]) 

addJine([sys,7,'A//C],[260, 305:3 15,305:3 15, 160;365, 160]) 

addJine([sys,r,’A//C],[315,230;360,230]) 

addJine([sys,’/','A//C],[210,350;215,350;215,3 10;230,3 10]) 

addJine([sys,T,'A//C],[315,l  10:455.1 10:455, 190:465, 190:465,220:480,220]) 

addJine([sys,7,'A//C],[465, 190:465. 170;480. 170]) 

addJine([sys,7.'A//C],[2 15, 155:272, 155:272,1 15;285,1 15]) 

addJine([sys.7.'A//C],[575,285;580.280;595,280]) 

addJine([sys.7.'A//C],[575,350;585, 350:585,3 15;600,3 15]) 

addJine([sys,7.'A//C].[425, 305:600,305]) 

•add_line([sys.7.’A//C],[425,305;455.305;455,270;595,270]) 

addJine([sys.7.'A//C], [430,350:485,350]) 

addJine([sys,7,’A//C],[430,350;470,350;470,285;485,285]) 

addJine([sys,7,'A//C],[630,275;815,275]) 

addJine([sys,7,'A//C],[450,230;480.2301) 

addJine([sys,7,’A//C],[450, 160:480, 1 60]) 

addJine([sys,7,'A//C], [575,225 ;590,225;590,265;8 15,265]) 

addJine([sys,7,'A//C],[660, 200:1015,200]) 

addJine([sys,7,’A//C],[940, 410:940,415:1015,425]) 

addJine([sys.7.'A//Cl,[370, 495:595,495]) 

set_param([sys,7,'A//C],... 

'Mask  Display','  AC  velocity  (z,x)\nTime  \n 


%  Finished  composite  block  'A//C'. 

set_param([sys,7,'A//C'],... 

’position',[150,154,280,201]) 

add_block('built-in/To  Workspace', [sys.'y.'launchflag']) 
set_param([sys,7,'launchflag’],... 

'mat-name’,'launchflag',... 

'buffer','1000000000’.... 

’position'.[  1650,635, 1755,655]) 

add_block('built-in/Clock',[sys,'/','Clock']) 

set_param([sys,7,'Clock'],... 

'position',[60,400,80,420]) 

add_block('built-in/To  Workspace',[sys,'/','time']) 
set_param([sys,7,'time'],... 

'mat-name’,'time',... 

'buffer',' 1000000',... 


AC  position  (x,y,z)') 
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'position\[155, 402,205,418]) 


%  Subsystem  'Missile_Contror. 
new_system([sys,V',’Missile_Contror]) 

set_param([sys,V';Missile_Contror],’Location’,[- 1 3,39 1 , 1 105,556]) 

add_bJock(’built-in/Inport',[sys,7,['Missile_Control/MissiIe  ',13, 'position’,  13,‘(x,y,z)']]) 
set_param([sys,'/',['Missile_Control/MissiIe  ’,i3,'position',13,'(x,y,z)']],.,. 

'Port',’3’,... 

'position’,[105, 155,125, 175]) 

add_block('built-in/Inport’,[sys,'/',’Missile_Control/mrange']) 

set_param([sys,'/',’Missile_Contro!/mrange'],,.. 

’Port',’2',... 

’position',[305,50,325,70]) 

add_block('buiIt-in/Product',[sys,'/VMissiIe_ControI/m3']) 

set_param([sys,’/','Missile_Controi/m3'],... 

‘position’,[385, 135,410,155]) 

add_biock('built-in/Fcn',[sys,7’,'MissiIe_Control/Fcn  1 1']) 
set_param([sys,'/','Missile_ControI/Fcn  1 1’],... 

’Expr’,'(l/u[l  ])',... 

'position’,[520,80,560,100]) 

add_block('built-in/MATLAB  Fcn’,[sys,'/’,’Missile_Control/testnan.m']) 
set_param([sys,’/',’Missile_ControI/testnan.ni’],... 

'MATLAB  Fcn’,'testnan',... 

’position’,[590,75,640,105]) 

add_block('buiIt-in/Sum’,[sys,’/’,*MissiIe_Contro!/Sum4']) 

set_param([sys,V',‘Missile_Control/Sum4'],... 

'inputs\'+-+’,... 

’position’,[335, 142,355, 178]) 

add_block('built>in/Mux’,[sys,7,'MissiIe_ControI/Mux']) 

set_param([sys,7,'Missile_Control/Mux’],... 

'inputs',’2',... 

■position’,[155,l  14,185,181]) 

add_block('built-in/MATLAB  Fcn',[sys,’/’,'Missile_Control/testzero.m’]) 
set_param([sys,7,'Missile_ControI/testzero.m’],.., 

'MATLAB  Fcn’,’testzero’,... 

'position', [415,75, 465, 105]) 

add_block('built-in/Gain',[sys,'/’,’MissiIe_ControI/Gainr]) 
set_param([sys,'/’,'Missile_Control/Gain  1’],... 

'Gain’,’,5',... 

'position',[425, 135,445, 155]) 

add_block('buiIt-in/Transfer  Fcn’,[sys,'/',['Missiie_Control/Transfer  ',13,’Fcn9']]) 
set_param([sys,’/’,(’Missile_Control/Transfer  ',13,’Fcn9']],... 

'Numerator', '[  1  2  1 
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’Denominator’, ’[.0999  .632  1]',... 

'position', [460, 126,580, 164]) 

add_block('buiIt-in/Inport',[sys,'/','MissiIe_Control/AC  position  (x,y,z)']) 
set_param([sys,'/’,’MissiIe_Control/AC  position  (x,y,z)’],... 

’position',[60, 120,80, 140]) 

add_blocIc(’buiIt-in/Product’,[sys,’/','MissiIe_ControI/mn4']) 

set_param([sys.'/','Missile_Control/mn4'],... 

'position’, [270, 250,295,2701) 

add_block('built-in/White  Noise', [sys,’/',[’Missile_ControlAVhite  Noise’,  13, '4']]) 
set__param([sys,'/’,['Missile_ControlAVhite  Noise',  13, ’4']],... 
'Seed’,’noiseseed(4)’„.. 

'position’,[  150,245, 170,265]) 


%  Subsystem  [’Missi!e_ControI/hold4',13/sampIe=.  1’]. 
new_system([sys,'/’,[’MissiIe_Control/hold4',  1 3,’sample=.  1  ’]]) 

set_param([sys,'/',['MissiIe_Control/hold4’,  1 3,'sample=.  1  ’]],’Location',[5 11,151 ,9 15,322]) 

add_bIock(’built-in/Outport',[sys,'/’,[’MissiIe_ControI/hold4',13,'sample=.l/output']]) 
set_param([sys,’/',[’Missile_ControI/ho!d4’,  1 3,’sample=.  i/output']],... 

’position', [345, 45, 365, 65]) 

add_block('built-in/Inport’,[sys,'/’,['Missile_ControI/hoId4',  1 3,'sample=.  1/input’]]) 
set_param([sys,’/’,['MissiIe_ControI/hold4’,13,'sample=.l/input']],... 

’position',[25, 35,45,55]) 

add_biock(’built-in/Unit  Delay',[sys,'/',[’Missile_Control/hoid4’,13,’sampie=.  1/Unit  Delay’]]) 
set_param([sys,'/',[’Missile_ControI/hold4',  13, ’sample=.  1/Unit  Delay’]],... 

'Sample  time’,'Ts',... 

'position’,[90,93, 140,1 17]) 

add_block('buiIt-in/Sum’,[sys,'/',[’Missile_Control/hold4',13,’sample=.  1/Sum']]) 
set_param([sys,'/',['Missile_Control/hold4',  13, ’sample=.  1/Sum']],... 

'inputs’,'+-',... 

’position’,[190,37,2I0,68]) 

add_block(’buiIt-in/Integrator',[sys,'/’,['Missile_Control/hoId4’,13,'sample=.l/Integrator’]]) 
set_param([sys,’/’,[’Missile_Control/hold4',  1 3,’sample=.  1 /Integrator']],... 

'position’,[235,42,260,68]) 

add_block('buiIt-in/Gain’,[sys,’/’,['Missile_Control/hold4’,  13, ’sample=.  1/Gain’]]) 
set_param([sys,'/’,['Missi]e_Control/hold4',l  3, 'sample=,  1/Gain’]],... 

’Gain',’l/Ts',... 

’position’, [285,33,325,77]) 

add_bIock('built-in/2^ro-Order  HoId’,[sys,'/’,['Missile_Control/hold4',13,’sample=,  l/Zero-Order',13,'HoId']]) 
set_param([sys,'/’,['Missile_ControI/hold4',13,’sample=.  1/Zero-Order',  13, ’Hold']],... 

’Sample  time',’Ts',... 

’position’,[100,29,135,61]) 

addJine([sys,’/’,[’Missile__Control/hold4',13,’sample=.r]],[50,45;95,45]) 

addJine([sys,’/',['Missile_Control/hold4’,13,'sample=.l’]],[65,45;65,105;85,105]) 
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addJine([sys;/’,[MssiIe^Control/hoId4\l3;saniple=.r]],[140,45;185,45]) 

addJine([sys,T,[’MissiIe^Control/hoid4M3;sample=.r]],[145.105;165,105;165,60;l85,60]) 

addJine([sys,7,['MissiIe_Control/hold4',I3/sampIe=.r]],[215,55;230,55]) 

add  Jine([sys,T,rMissile^Control/hold4\  1 3;sample=.  1  ']],[265,55;280,55]) 

addJine([sys,7\[’Missile_Control/hold4M3/sample=.r]],[330,55;340,55]) 

set_param([sys,'/’,[’Missile_Control/hoId4M  3/sample=.  1’]],... 

'Mask  Display’;plot(0,0, 100, 100.[90,70,50,30, 10], [60, 40, 80, 30,20])’,... 

'Mask  Type’, 'First-Order  Hold’,... 

’Mask  Dialogue’,'First-Order  HoldlSampIe  Time:') 
set_param([sys,'/’,[’Missi!e_Control/hoId4',l3,’sample=.r]],... 

'Mask  Translate’, ’Ts=@  I 

'Mask  Help’,'Implements  a  First-Order  sample-and-hold  latch  operating  at  the  sampling 
interval  you  specify,’,... 

'Mask  Entries',’.  IV’) 


%  Finished  composite  block  ['Missile_Control/hold4',13,'sampIe=.r]. 

set_param([sys,'/’,['Missile_Control/hold4’,13,’sample=.r]],... 

'position',[200,239,235,271]) 

add_block('built-in/MATLAB  Fcn',[sys,'/',['MissiIe_Control/ReIative  Angle',  13, 'between  LOS 
and',  13,'Bearing’,  13,’relanglr.m']]) 

set_param([sys,’/’,['Missile_Control/Relative  Angle',  13, 'between  LOS  and',  13, 'Bearing',  13,’relanglr.m']],... 
'MATLAB  Fcn’,'relanglr',... 

'Output  Width',' 1’,... 

’position',[225, 135,275, 165]) 

add_bIock('built-inySum',[sys,’/',’MissiIe_Control/sum5n']) 

set_param([sys,'/','Missile_Control/sum5n'],... 

’position’,[905, 138,930, 162]) 

add_block('built-in/Integrator’,[sys,’/',[’Missile_Control/Integr',13,'ator8’]]) 
set_param([sys,'/',['Missile_Control/Integr'.  1 3.’ator8']],... 

’position’,[950, 1 35,970, 155]) 

add_block('buiit-in/Integrator’,[sys,'/',['Missile_Control/Integr*,13,’ator7’]]) 

set_param([sys,'/’,['Missile_Control/Integr’,13,'ator7']],... 

'position', [990,135,1010,155]) 

add_block('built-in/Product’,[sys,'/’,’Missile_Control/mlO']) 

set_param([sys,’/’,'Missile_Control/mIO'],... 

’position’,[  1 040, 1 30, 1065 ,150]) 

add_block('built-in/MATLAB  Fcn’,[sys,’/’,’Missile__Control/testnan.mJ]) 
set_param([sys,'/','Missile_Control/testnan.mJ],... 

'MATLAB  Fcn’,’testnan',... 

'position', [1085,125,1 135,155]) 

add_block('built-in/Constant',[sys,’/’,'MissiIe_Control/MThrust_Duration']) 

set_param([sys,’/',’Missile_Control/MThrust_Duration’],.., 

'Value’,’MThrust_Duration',... 

'position', [885,296, 1 005,3 14]) 

add_block('built-in/Constant',[sys,'/','Missile_Control/shottime’]) 
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set_param([sys,7/Missile_Control/shotlime'],... 

'Value', 'shottime\... 

'position', [915, 267,1005, 283]) 

add_block('built-in/Inport’,[sys,’/’,’Missile__ControI/in_4’]) 

set_param([sys,'/*,'Missile_Control/in_4'],... 

'Port','4’,... 

'position',[1045,235, 1065,255]) 

add_block('built-in/Mux',[sys,'/',’Missile_ControI/Mux5’]) 

set_param([sys,V’,'Missile_Control/Mux5'],... 

'inputs', '3',... 

’position’,[  1095,230, 1 130,320]) 

add_block(’built“in/MATLAB  Fcn',[sys,'/',’Missile_Control/missiIego.m’]) 
set_param([sys,7','Missile_Control/missilego.m’],... 

'MATLAB  Fcn’,’misslego’,.,. 

'Output  Width’, . 

'position', [1 185,260,1235,290]) 

add_bIock('buiIt”in/To  Workspace',[sys,’/',’Missile_ControI/test']) 
set_param([sys,'/’,’Missile_Control/test’],... 

'mat-name', 'missilevel',... 

'buffer',’ 1000000000’,... 

’position’,[1295,307, 1375,323]) 

add_bIock('built-in/Product',[sys,’/’,'MissiIe_ControI/ml7']) 
set_param([sys,'/',’MissiIe_Control/m  17'],... 

'position',[1320, 195,1345,215]) 

add_bIock('built-in/Integrator',[sys,'/’,'Missile_ControI/Integrator3']) 

set_param([sys,’/','Missile_Control/Integrator3'],... 

’position',[1385,195,l405,215]) 

add_block('built-in/Integrator',[sys,’/’,'Missile_Control/Integrator2’]) 

set_param([sys,’/','MissiIe_Controi/Integrator2'],... 

’position*,[  1385, 135,1405, 155]) 

add__block('built-in/Product',[sys,’/’,'Missiie_ControI/ml8’]) 

set_param([sys,’/’,'Missile_Control/ml8’],... 

’position',[  1320, 135, 1 345, 155]) 

add_block('buiIt-in/Fcn',[sys,’/’,'Missile_Control/Fcn2']) 

set_param([sys,’/',’Missile_Control/Fcn2'],... 

'position', [1200,130, 1285,150]) 

add_block('built-in/Fcn',[sys,'/','Missile_Control/Fcn3']) 

set_param([sys,’/','Missile„Control/Fcn3’],... 

’Expr','cos(u[l  ])’„.. 

'position', ( 1205, 198, 1290,222]) 

add_block('buiIt-in/Outport',[sys,'/’,'Missile_Control/sin  pos’]) 
set_param([sys,'/’,’Missile_Control/sin  pos’],... 

'position*, [1465, 140, 1485,160]) 
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add_bIock('buiIt-in/Outport',[sys,’/’,'Missile_Control/cos  pos’]) 
set_param([sys,’/','Missile_Control/cos  pos'],... 

'Port'.’2',... 

■position', [1465, 190,1485,210]) 

add_block('built-in/Product',[sys,'/','Missile_Control/mn5']) 

set_param([sys,'/','Missile_ControI/mn5'],... 

'inputs’,'3',... 

■position', [825,207,850,263]) 

add_block('built-in/Constant',[sys,'/’,['Missile_Control/MThrustN  Standard  ',13, 'Deviation']]) 
set_param([sys,’/',['Missile_Control/MThrustN  Standard ',  13,'Deviation']],... 
'Value','MThrustNstd',... 

■position', [620,247,7 10,263]) 

add_block('built-in/White  Noise', [sys,'/’,'Missile_ControlAVhite  Noise  5']) 
set_param([sys,'/','Missile_Control/White  Noise  5'],... 

'Seed‘,'noiseseed(5)',... 

■position', [745,220,765,240]) 

add_block('built-in/Transfer  Fcn',[sys,’/',['Missile_Control/Transfer  ',13,'Fcnl  1']]) 
set_param([sys,'/’,['Missile_Control/Transfer  ',13,'Fcnt  1']],... 

'Denominator','[.00694444  .05  1  ]',... 

'position',[655, 123,800, 167]) 

add_block('built-inyTransfer  Fcn',[sys,'/’,['Missile_ControI/Transfer  ',13,'FcnlO']]) 
set_param([sys,'/',['Missile_Control/Transfer ',  1 3,'Fcn  1 0']],... 

'Numerator','[2  1]',... 

'Denominator',']  1  0]',... 

'position',[595, 127,635, 163]) 

add_block('built-in/Constant',[sys,'/','Missile_Control/ Acquire  Std  Dev']) 
set_param([sys,'/','Missile_Control/Acquire  Std  Dev'],.., 

'Value',' AcquireNstd',... 

■position',]  140,323,230,347]) 

add_block('built-in/Note',[sys,'/','Missile_Control/BLOCK:  Missile_Contror]) 
set_param([sys,'/','Missile_Control/BLOCK:  Missile_Contror],... 

'position',  [635 ,405 ,640,4 1 0] ) 

addJine([sys,'/','Missile_Contror],[  1240,275;  1297,275;  1297,200;  13 15,200]) 
addJine([sys,'/',’Missile_Contror],[  1 297,200;  1 297, 150;  1 3 15, 150]) 
addJine([sys,'/','Missile_Control'],[  1 135,275;  1 1 80,275]) 
addJine([sys,'/','Missile_Control'],[  1 0 10,305;  1090,305]) 
addJine([sys,'/','Missile_Control'],[1010,275;1090,275]) 
addJine([sys,'/','Missile_Contror].[1240,275;  1257,275;  1257,3 15;  1290,3 15]) 
addJine([sys,'/’,'Missile_Contror],[300,260;320,260;330,170]) 
add_line([sys,'/’,'Mlssile_Contror],[240,255;265,255]) 
addJine([sys,'/’,'Missile_Contror],[175,255;195,255]) 
addJine([sys,'/','Missile_Contror],[235,335;253,335;253,265;265,265]) 
addJine([sys,'/’,'Missile_Contror],[805,145;900,145]) 
add_line([sys,'/','Missile_Contror],[770,230;787,230;787,235;820,235]) 
addJine([sys,'/','Missile_Contror],[715,255;820,255]) 
add_line([sys,'/','Missile_Contror],[330,60;370,60;380, 140]) 
addJine([sys,'/','Missile_Contror),[370,127;370,90;410,90]) 
add_line([sys,'/','Missile_Contror],[470,90;5 1 5,90]) 
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addJine([sys,’/’,'Missile_Contror],[935. 1 50;945, 145]) 
addJine([sys,7,'Missile_Contror],[280. 1 50:330, 150]) 
addJine([sys,T,'Missile_Contror], [645.90: 1 0 1 7,90;  1 0 1 7, 135;  1 035, 1 35]) 
add_line([sys,’/’,'Missile_Contror], [565 ,90:585, 90]) 
addJine([sys,T,'Missile_Contror],[l  140,140:1 195,140]) 
addJine([sys,’/’,'Missile_Control’],[  1070, 140: 1080, 140]) 
addJine([sys,’/’,'Missile_Contror].[  1 350,205: 1 380,205]) 
add_line([sys,r,’Missile_Contror],[  1 295,2 10: 1 3 1 5,2 1 0]) 
add_line([sys,7.'Missile_Contror],[  1 290. 140: 1 3 15. 140]) 
addJine([sys.7,'Missile_Contror], [1350.145:1380,145]) 
addJine([sys,7,’Missile_Contror], [450. 145:455, 145]) 
addJine([sys,7,'Missile_Contror],[4 1 5, 1 45 :420, 145]) 
addJine([sys,7,'Missile_Contron, [585, 145:590. 145]) 
addjine([sys, 7, 'Missile_Contror],[640, 145:650, 145]) 
addJine([sys,7,’Missile_Contror],[  1015,145: 1035, 145]) 
addJine([sys,7,’Missile_Contror], [975, 145:985, 145]) 
addJine([sys.7,’Missile_Contror], [360.160:380, 150]) 
add_line([sys.7,'Missile_Contror],[  1 90. 150:220, 150]) 
add_line([sys,7,'Missile_Contror],[85,130:150,130]) 
addJine([sys,7,’Missile_Contror],[  1 4 1 0, 1 45 : 1 422, 145 : 1 460, 150]) 
addJine([sys,7,'Missile_Contror],[  1 30, 1 65: 1 50, 165]) 
addJine([sys,7,’Missile_Contror],[  14 10,205: 1422,205: 1460,200]) 
addJine([sys,7,'Missile_Contror],[  1 070,245 : 1 090,245]) 

addJine([sys,7,'Missile_Contror],[  1 140,140:1 165,140:1 165,200:310,200:310,160:330,160]) 
addJine([sys,7,'Missile_Contror],[855.235:865,235;865.155;900,155]) 
addJine([sys.7,'Missile_Contror],[805, 145:810,145:820,215]) 
addJine([sys,7,'Missile_Contror],[  1 1 65,200: 1 1 65,2 1 0;  1200,2 10]) 
set_param([sys,7,'Missile_Contror],... 

'Mask  Display',’ AC  position  (x,y,z)  \nMissile  range  sin  posVnMissile  (x,y,z) 

\nTime  cos  pos') 


%  Finished  composite  block  'Missile_Contror. 

set_param([sys,'/','Missile_Contror],... 

’position',[380, 183,530,242]) 


%  Subsystem  'Missile_Range'. 
new_system([sys,7,'Missile_Range']) 

set_param([sys,'/','Missile_Range'],'Location', [35,230,880,506]) 

add_block('built-in/Outport',[sys,7,'Missile_Range/Missile  Range']) 
set_param([sys,'/','Missile_Range/Missile  Range'],... 

'oricntation',2,... 

'position',[80,95, 100,1 15]) 

add_block('built-inyTo  Workspace', [sys,'/','Missile_Range/mrange']) 
set_param([sys,'/','Missile_Range/mrange'],... 

'orientation',2,... 

'mat-name',’mrange',... 

'buffer',' 1000000',,.. 

'position', [70,137, 120,153]) 
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add_bloclc('built-in/Inport',[sys,'/',’Missile_Range/Missile  Position  (x,y,z)']) 
set_param([sys,7','Missile_Range/MissiIe  Position  (x,y,z)'],-. 
'orientation',2,... 

'position',[645,90,665,l  10]) 

add_block('built-in/Product',[sys,'/','Missile_Range/m8']) 

set_param([sys,'/’,'Missile_Range/ni8'],... 

'orientation',2,..- 
'position', [340, 125,365, 145]) 

add_block('built-in/Product',[sys,'/’,'Missile_Range/m7']) 

set_param([sys,'/','Missile_Range/m7'],... 

'orientation',2,... 

'position',[385,95,410,115]) 

add_block('built-in/Sum',[sys,'/',’Missile_Range/Sum3']) 

set_param([sys,'/','Missile_Range/Sum3'],... 

'orientation',2,... 

'inputs','+++',... 

'position',[270,87,290,123]) 

add_block('built-in/Product',[sys,'/','Missile_Range/m6']) 

set_param([sys,7','Missile_Range/m6'],... 

'orientation',2,... 

'position',[340,60,365.80]) 

add_block('built-in/Demux',[sys,'/','Missile_Range/Demux7']) 

set_parani([sys,'/','Missile_Range/Demux7'],... 

'orientation',2,... 

'outputs','3',... 

'position',[505,83,545,l  17]) 

add_block('built-in/Fcn',[sys,'/','Missile_Range/FcnlO']) 

set_param([sys,'/','Missile_Range/FcnlO'],... 

'orientation',2,... 

'Expr','sqrt(u[  1  ])',..  . 

'position',[145,91,230,!19]) 

add_block('built-in/Note',[sys,'/’,'Missile_Range/BLOCK:  Missile_Range']) 
set_param([sys,'/','Missile_Range/BLOCK:  Missile_Range'],... 
'position',[365,205,370,210]) 

addJine([sys,'/','Missile_Range'],[500, 1 10;462, 1 10;462, 130;370, 130]) 
addJine([sys,'/','Missile_Range'],[407,130:407,140;370,140]) 
addJine([sys,'/','Missile_Range'],[500,90:452,90;452,65;370,65]) 
addJine([sys,'/','Missile_Range'],[387,65;387,75;370,75]) 
add_line([sys,'/','Missile_Range'],[500, 100;4 15, 100]) 
addJine([sys,'/','Missile_Range'],(447,100;447,l  10;415,1 10]) 
addJine([sys,'/','Missile_Range'],[265, 105:235, 105]) 
add_line([sys,'/','MissiIe_Range'],[335, 70:307,70:295,95]) 
add_line([sys,'/','Missile_Range'],[380,105:295,105]) 
add_line([sys,'/','Missile_Range'],[335,135:307,135:295,115]) 
addJine([sys,'/','Missile_Range'],[140,105:135,105:125,145]) 
add_line([sys,'/’,'Missile_Range'],(640, 100:550, 100]) 
addJine([sys,'/’,'Missile_Range'],[  140, 105: 105, 105]) 
set_param(isys,'/','Missile_Range'],... 
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add_blockCbuilt-in/Inport',[sys,7'/MissiIexyz/in_3’]) 

set_param([sys//’,'Missilexyz/in_3'],... 

'Port'/3\... 

'position\[495,355,5 15,375]) 

add_block('built-in/Product\[sys,7’,’Missilexyz/m  1 1 ']) 
set_param([sys//\’MissiIexyz/n[il  1'],... 

’position\[880385,905,405]) 

add_bIock(’built-in/Product‘,[sys,7'/Missilexyz/ml2']) 
set_param([sys,7\'Missilexyz/m  1 2’],... 

’position\[905, 305,930, 325]) 

add_block('built-in/Product’,[sys,7’,'Missilexyz/ml3']) 

set_param([sys,7’,’Missilexyz/ml3'],... 

•position’, [920, 210, 945, 230]) 

add_block('built-in/Sum’,[sys,7VMissilexyz/Sum7’]) 

set_param([sys,’/','MissiIexyz/Sum7'],... 

•position', [995,390, 1015,410]) 

add_block('built-in/Product',[sys,7’,'Missilexyz/ml6*j) 

set_param([sys,’/',’Missilexyz/ml6‘],... 

’position’,[9 10,435,935,455]) 

add_block(‘built-in/MATLAB  Fcn‘,[sys,’/’,’Missilexyz/divpIus.m(3)*]) 
set_param([sys,'/’,’Missilexyz/divplus.m(3)‘],... 

‘MATLAB  Fcn’,'divplus',... 

'OutputWidthVr,... 

•position’, [535, 200, 585, 230]) 

add_blockCbuilt-in/Sum’,[sys,'/’,’Missilexyz/Sum6’]) 

set_param([sys,’/',’MissiIexyz/Sum6'],... 

’position’,[1015, 335,1035,355]) 

add_block('buiIt-in/Product’,[sys,7’,’MissiIexyz/ml5’]) 

set_param([sys,'/‘,'Missilexyz/ml5’],... 

•position',[950,345, 975,365]) 

add_block(’built-inyTo  Workspace’,[sys,’/’,’Missilexyz/ynn[']) 
set_param([sys,’/’,’Missilexyz/ym'],... 

’mat-name', ’ym',... 

'buffer',' lOOOOOOOOO’,... 

’position',[  11 15,337,1 165,353]) 

add^blockCbuilt-in/To  Workspace',[sys,’/','Missilexyz/zm’]) 
set_param([sys,'/’,'MissiIexyz/zm'],... 

•mat-name’,'zm',... 

'buffer',’l000000000’,... 

’position’,[l  125,392,1 175,408]) 

add_block('built-in/Mux',[sys,’/’,'Missilexyz/Muxl9’]) 

set_param([sys,’/','Missilexyz/Muxl9'],... 

’orientation',3,... 
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’inputs\'3',... 

'position', [1052,45.1088, 95]) 

adcI_blockCbuilt-in/Product',[sys,’/’,'Missilexyz/ml4']) 

set_param([sys,'/','Missilexyzyml4'],... 

'position', [925, 265,950, 285]) 

add_block(’buiIt-in/Sum',[sys,‘/','Missilexyz/Sum5']) 

set_param([sys,'/','Missilexyz/Sum5'],... 

’position’,[985,235. 1005,255]) 

add_block('built-in/To  Workspace', [sys,7,’Missilexyz/xm']) 
set__param([sys,'/’,'Missilexyz/xm'],... 

'mat-name','xm’,.., 

'buffer',’ 1000000000',... 

'position',[l  120,237,1 170,253]) 

add_block('built-in/Outport’,[sys,'/’,['MissiIexyz/Missile  position',  13,'(x,y,z)']]) 
set_param([sys,'/',['MissiIexyz/Missile  positionM3,’(x,y,z)']],... 

'orientation',3,... 

'position',[  1060, 10. 1080,30]) 

add_block('built-in/Inport’,[sys,’/’,’MissiIexyz/in_2']) 

set_param([sys,’/’,'MissiIexyz/in_2’],... 

'Port',’2',... 

'position', [780, 390,800,4 10]) 

add_block('built-in/Demux*,[sys,'/’,’Missilexyz/Demux4']) 

set_param([sys,'/','MissiIexyz/Demux4'],,.. 

'outputs','3',... 

'position', [95, 1 1 2, 1 35, 1 68]) 

add_biock(’buiIt-in/Product',[sys,'/*,’Missi!exyz/m2']) 

set_param([sys,'/’,'Missilexyz/m2’],.,. 

'position',[245, 285,270,305]) 

add_bIockCbuilt-in/Inport',[sys,’/’,[’Missilexyz/AC  position', I3,'(x,y,z)']]) 
set_param([sys,'/’,[’Missilexyz/AC  position',  1 3,'(x,y,z)']],... 

'position', [40, 130,60,150]) 

add_block(’built-in/Product’,[sys,'/’,’Missilexyz/m  I ']) 
set_param([sys,’/','MissiIexyz/m  1'],... 

'position', [205, 205, 230,225]) 

add_block('built-in/Product'.[sys,'/',’Missilexyz/m’]) 

set_param([sys,’/’,’MissiIexyz/m'],... 

’position',[205,260,230,280]) 

add_block(’built-in/Note',[sys,'/’,’Missilexyz/BLOCK:  Missilexyz']) 
set_param([sys,'/','Missilexyz/BLOCK:  Missilexyz'],... 

'position', [470,500,475, 505]) 

add_block('buiIt-in/Note',[sys,'/','MissiIexyz/alpha ']) 
set_param([sys,'/’,'Missilexyz/alpha '],... 

'position',[612, 195,617,200]) 
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addjine([sys.'/*, 'Missilexyz’].[935, 315:957, 315:957.340;1010, 340]) 
addJine([sys,7','Missilexyz'],[590,2!5;915,215]) 
addJine([sys,r;Missilexyz'],(905,2 15:895,2 15:895 ,270:920,270]) 
addJine([sys,T,'Missilexyz’],[  140, 160: 147, 160: 147.290:240,290]) 
addJine([sys,7','Missilexyz'],[  147,270: 147,300:240,300]) 
addJine([sys,’/',’Missilexyz'],[  140, 140: 167, 140: 167,265:200,265]) 
addJine([sys,7,’Missilexyz'],[  1 40, 1 20: 1 85, 1 20: 1 85,2 1 0:200,2 1 0]) 
add_line([sys,7','Missilexyz'],[  1020,400: 1 120,400]) 
addJine([sys,7','Missilexyz'],[  1020,400: 1080,400: 1080, 100]) 
addJine([sys,'/’,'Missilexyz’],[1010,245:l  1 15,245]) 
addJine([sys,7','Missilexyz'],[1010,245:1060,245:1060,100]) 
addJine([sys,7’,'Missilexyz'].[1040,345:l  1 10,345]) 
addJine([sys,7','Missilexyz'],(l040,345:1070,345:1070,100]) 
addJine([sys,7','Missilexyz’],[235,2 1 5 :287,2 1 5 :287,260:320,260] ) 
addJine([sys,’/','Missilexyz’],(275,295:287,295:287,280:320,280]) 
addJine([sys,7','Missilexyz'],[430, 270:530,270]) 
addJine([sys,’/’,'Missilexyz’],[430,270:467,270:467,320:650,320]) 
addJine([sys,r,'Missilexyz'],[430,270:427,270:427,220:440,220]) 
addJine([sys,7',’Missilexyz'],[350,270:355,270]) 
add_line([sys,7','Missilexyz’],(9 1 0,395 :990,395]) 
add_line([sys,7',’Missilexyz'],[940,445:960,445:960,405:990,405]) 
addJine([sys,'/’,'Missilexyz'], [980,355:990, 355:990,350:1010,350]) 
addJine([sys,7,'Missilexyz'],[955,275:970,275:980,250]) 
addJine([sys,'/’,’Missilexyz'],[950,220:967,220:967,240:980,240]) 
addJine([sys,r,’Missilexyz'].[650,265:882,265:882,3 10:900,3 10]) 
addJine([sys,r,’Missilexyz’],[690,3 15:7 10,3 1 5]) 
add_line([sys,r,’Missilexyz’],[570,265:590,265]) 
add_line([sys,'/’,'Missilexyz'],[480,2 15:530,2 15]) 
addJine([sys,'/','Missilexyz’],[65, 140:90, 140]) 
addJine([sys,T.'Missilexyz'],[  1070,40: 1070.35]) 
addJine([sys.7','Missilexyz’],[520,365:650,365:650,450:905.450]) 
addJine([sys.r,'Missilexyz'],[520,365:840.365:840,360:945,360]) 
addJine([sys,7','Missilexyz’].[840,365:840.280:920.2801) 
addJine([sys,r.'Missilexyz'], [770,315:815,315:815,390:875,390]) 
addJine([sys,'/’,'Missilexyz'],[8 15,390:8 15,440:905,440]) 
addJine([sys,T,'Missilexyz’],[  147,300: 155,300: 155,325:5 10,325:5 10, 
add_line([sys,T,'Missilexyz'],[235,270:320,270]) 
add_line([sys.7','Missilexyz’],[  1 85,2 1 0: 1 85,220:200,220]) 
add_line([sys.r,'Missilexyz'],[  175,265: 175,275:200,275]) 
addJine([sys,T,'Missilexyz’],[  1 67,240:455,240:455,255 :530,255] ) 
add_line([sys,’/’,’Missilexyz'],[185, 190:430, 190:440,205]) 
add_line([sys,'/','Missilexyz'],[805,400:875,400]) 
addJine([sys,'/’,'Missilexyz’],[855,400:855,320:900,320]) 
addJine([sys,r,’Missilexyz'],[855,320:855,225:9I5,225]) 
addJine([sys,r,’Missilexyz'],[880, 265:880,350:945,350]) 
set_param([sys,7',’Missilexyz’],... 

'Mask  Display'.'AC  position  (x,y,z)  \nsin  pos 

') 


%  Finished  composite  block  'Missilexyz'. 

set_param([sys,7',’Missilexyz'],... 

'position',[620,39,770,91]) 


,305:650,305]) 


Missile  (x,y,z)\ncos  pos 
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%  Subsystem  'Relative_angles_and_range'. 


new_system([sys//’,’Re!ative_angles_and_range']) 

set_param([sys, 7, 'Relative_angles_and_range’]/Location', [45, 102,620,460]) 

add__bIock('buiIt-inyTo  Workspace’, [sys,7,’ReIative_angIes_and_range/A//C  -  missile  slant  range']) 
set_param([sys,'/’,'Relative_anglcs_and_range/A//C  -  missile  slant  range'],... 

’mat-name’,'amslantrange',... 

’buffer’, '1000000000',... 

’position',[425,2 1 3,545,227]) 

add_block('built-in/Outpon’,[sys,'/’,'Relative_angIes_and_range/Missile  phi']) 
set_param([sys,7,'Reiative_angles_and_range/Missile  phi’],... 

'position', [455,85, 475, 105]) 

add_block('buiIt-in/Inport',[sys,'/’,'Relative_angIes_and_range/AC  position  (x,y,z)']) 
set_param([sys,’/’,'ReIative_angles_and_range/AC  position  (x,y,z)'],... 

'Port', '2',.,. 

'position’,[65, 140,85, 160]) 

add_block('buiIt-in/Inport',[sys,'/’,’Relative_angIes_and_range/Missile  Position  (x,y,z)’]) 
set_param([sys,'/’,'Relative_angles_and_range/Missile  Position  (x,y,z)’],... 

'position’,[65, 105,85, 125]) 

add_bIock('built-in/Mux’,[sy$,’/*,'ReIative_angles_and_range/Mux6']) 

set_param([sys,'/’,'Relative_angIes_and_range/Mux6’],... 

'inputs','2*,... 

'position', [140,99,170,166]) 

add_bIock('built-in/MATLAB  Fcn’,[sys,'/',[’Relative_angles_and_range/Relative  Angle',  13,'between 
A//C',13,'and  missile’,  1 3,*acmangle.m']]) 

set_param([sys,’/’,['ReIative_angles_and_range/ReIative  Angle’,  13, 'between  A//C,  13,’and 
missile',  1 3,'acmangle.m’]],... 

'MATLAB  Fcn’,'acmancle',... 

'Output  Width',’3',... 

’position',[200, 120,250, 1 50]) 

add_bIock('buiIt-in/Demux’,[sys,’/',’ReIative_angles_and_range/Demux']) 

set_param([sys,’/’,’Relative_angles_and_range/Demux’],... 

’outputs','3’,... 

’position', [280, 119,320,151]) 

add_block('built-in/Outport’,[sys,'/’,’ReIative_angles_and_range/Missile  theta']) 
set__param([sys,’/',’ReIative_angles_and_range/Missile  theta'],... 

'Port’,'2’,... 

’position’,[485, 125,505, 145]) 

add_block('buiIt“in/Outport',[sys,'/’,'Relative_angles_and_range/Missile  Range']) 
set_param([sys,’/’,'Relative_angles_and_range/MissiIe  Range'],... 

’Port',’3’,... 

'position',[420,250,440,270]) 

add_block('built-in/To  Workspace’,[sys,'/’,['ReIative_angIes_and_range/Theta  angle  between  ’,13,'  A//C  and 
missile']]) 
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set_param([sys//',[’Relative_angles_and_range/Theta  angle  between  ',13/  A//C  and  missile']],... 
'mat-name’,'acmtheta__end',... 

'buffer',' 1 000000000',... 

'pos  i  tio  n',  [455 , 1 65 ,5 80, 1 85 ] ) 

add_blo^^k(’t>tiilt-in/To  Workspace', [sys,'/’,[’Relative_angIes_and_range/Phi  angle  between',  13,’A//C  and 
missile ']]) 

set_param([sys,'/',['Relative_angles_and_range/Phi  angle  between',  1 3, 'A//C  and  missile’]],... 

'mat-name', 'acmphi_end',. .. 

'buffer',' 1000000000',... 

'position', [400, 4 1 ,480,59]) 

add_block('buiIt-in/Note',[sys,7',’Relative_angles_and_range/BLOCK:  Relative_angles_and_range’]) 
set_param([sys,‘/’,’Relative_angIes_and_range/BLOCK:  Relative_angles_and_range'],... 

'position', [220,300,225,305]) 

addJine([sys,’/',’Relative_angles_and_range'],[325,135;405,135;405,175;450,175]) 

addJine([sys,’/',’Relative_angles_and_range'],[325,145;365,145;365,220;420,220]) 

addJine([sys//','Relative_angles_and_range'],[325,125;365,125;365,50;395,50]) 

addJine([sys,’/'/Relative_angles_and_range'],[255,135;275,135]) 

addJine([sys,’/’,’Relative_angles_and_range'],[175,135;l95,135]) 

addJine([sys,'/’,’Relative_angIes_and_range'],[90, 1 15;  135, 1 15]) 

addJine([sys,’/‘,*Relative_angles_and_range'],[325,125;365,125;365,95;450,95]) 

addJine([sys,'/’,’Relative_angles_and_range'],[325,i35;480,135]) 

add_line([sys,'/','Relative_angles_and_range’],[325,l45;365,145;365,260;415,260]) 

add  Jine([sys,'/’,’Relative_angles_and_range'],[90, 150;  1 35, 150]) 

set_param([sys,'/',’Relative_angles_and_range’],... 

'Mask  Display’,'  Missile  Missile  Phi\nPosition  (x,y,z)  \n 

Missile  Theta\n  AC  position  Missile  \n  (x,y,z)  Range  (rel)’) 


%  Finished  composite  block  'Relative_angles_and_range'. 

set_param([sys//'/Relative_angles_and_range'],... 

'position', [625,501, 790, 559]) 


%  Subsystem  ’Launch_data’. 
new_system([sys,’/’,'Launch_data']) 

set_param([sys,'/’.’Launch_data’],'Location',[255,355,995,690]) 

add_block(’built-in/Look  Up  Table',[sys,'/’,['Launch_data/Look-up',13,'IN:Launch  theta',  13,'OUT:Launch 
Phi']]) 

set_param([sys,'/',[’Launch_data/Look-up’,13,'IN:Launch  theta’,13,'OUT:Launch  Phi']],... 

'orientation', 2,... 

’InpuLValues*,'thetaJaunchJu',... 

'Output_Values','phi  Jaunch  Ju', . . . 

'position',[230, 128,260, 152]) 

add_bIock('built-in/Product',[sys,'/’,'Launch_data/m2r]) 
set_param([sys,'/','Launch_data/m2 1 '],... 

'orientation',2,... 

’position’,[390,130,4l5,150]) 

add_block('buiIt-in/Constant',[sys,'/','Launch_data/57.3']) 
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set_param([sys//\'Launch_data/57.3’],... 

'orientation', 2,... 

'VaIueV57.3*,... 

'position',[450, 140,490, 160]) 

add_block(’built-in/Sum',[sys,'/’,'Launch_data/Sum24']) 

set_param([sys,'/',’Launch_data/Sum24*],... 

’orientation’, 2,... 

’position',[505, 123,530, 147]) 

add_bloclc('built-in/Inport',[sys,’/',’Launch_data/Missile  theta’]) 
set_param([sys,’/’,'Launch_data/Missile  theta'],... 

'orientation', 2,... 

’position’,[755, 235, 775,255]) 

add_block('buiIt-in/Product',[sys,7','Launch_data/m23']) 

set_param([sys,’/','Launch_data/ni23’],... 

'orientation*,2,... 

'position', [585,130,610, 150]) 

add_bIock('built-in/Constant',[sys,’/’,’Launch_data/trackerstd’]) 
set_parani(  [s  y  s,’/'  ,’Lau  nc  h_data/trac  kerstd '] , . . . 

‘orientation’, 2,... 

’  Value', ’trackerstd’,... 

*position',[805, 134,870, 156]) 

add_block('buiIt-in/Inport*,[sys,'/’,'Launch_data/MissiIe  phi']) 
set_param([sys,’/’,'Launch_data/MissiIe  phi’],... 

*orientation’,2,... 

'Port', '2',... 

’position’,[5 1 5,250,535,270]) 

add_blockCbuilt-in/Look  Up  Table',[sys,'/',['Launch_data/Look-up',  13,’IN:  Missile 
Theta',  l3,’OUT:Launch',  13,'  theta']]) 

set_param([sys,'/',['Launch_data/Look-up',13,'IN:  Missile  Theta',  13,'OUT:Launch',  13,’  theta']],.., 

'orientation', 2,... 

'Input_VaIues',’theta_missiIeJu’,... 

’Output_VaIues’,’thetaJaunchJu',... 

'position',[335, 128,365, 152]) 

add_block(’built-in/Outport',[sys,'/*,'Launch_data/Launch  data']) 
set_param([sys,’/','Launch__data/Launch  data’],... 

’orientation’, 2,... 

’position’,[50, 220,70, 240]) 

add_block('built-in/Mux',[sys,’/',’Launch_data/MuxI4*]) 
set_param(  [sy  s,'/','Launch_data/Mux  14'],... 

'orientation', 2,... 

’inputs’,’5’,... 

'position', [120,196,150,264]) 

add_bIock('buiIt-in/Look  Up  TabIe',[sys,’/’,[’Launch_data/Look-up’,l3,'IN:Missile  Theta',  13,'OUT:  Time-to- 
target’]]) 

set_param([sys,’/',[’Launch_data/Look-up’,l3,'IN:Missile  Theta’,  13, 'OUT:  Time-to-target’]],... 

'orientation', 2,... 
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’Input_Values'/theta_missiIeJu\... 
’Output_Values’/timeJu‘,.. . 

’position’,[605, 168,635, 192]) 

add_block('built-inAVhite  Noise', [sys,7‘,['Launch_data/White  Noise',  13, '6']]) 
set_param([sys,'/',['Launch_data/White  Noise',  13,'6']],... 

’orientation',2,... 

'Seed’,’noiseseed(6)’,... 

’position',[775,70,795,90]) 


%  Subsystem  ['Launch_data/hold5',13,'sample=.25']. 
new_system([sys,’/',[’Launch_data/hold5’,13,’sample=.25']]) 

set__param([sys,’/*,[’Launch__data/hold5',  1 3,'sampIe=.25']],’Location’,[5 11,151 ,9 15,322]) 

add_block('buiIt-in/Zero-Order  HoId’,[sys,’/',[’Launch_data/hoId5',13,'sample=.25/Zero-Order',13,’Hold']]) 
set_param([sys,’/',['Launch__data/hold5',  1 3,'sample=.25/Zero-Order',  1 3,’HoId']],... 

'Sample  time’,'Ts‘,... 

'position', [  100,29, 1 35,6 1  ]) 

add_block(’buiIt-in/Gain',[sys,'/’,['Launch_data/hold5',13,'sample=.25/Gain']]) 

set_param([sys,'/',[’Launch_data/hoId5’,13,*sample=.25/Gain']],... 

'Gain’,'l/Ts',... 

'position', [285,33,325,77]) 

add_bloclc('built-in/Integrator',[sys,'/',['Launch_data/hold5',13,'sample=.25/Integrator']]) 

set_pararTi([sys,7',['Launch_data/hoId5M3,’sample=.25/Integrator']],... 

'position', [235, 42, 260,68]) 

add_block('built-in/Sum',[sys,'/',['Launch_data/hold5',  1 3,'sample=. 25/Sum']]) 
set_param([sys,'/',['Launch_data/hold5',13,'sample=.25/Sum']],... 

'inputs', 

'position',[  190,37,2 10,68]) 

add_block('built-in/Unit  DeIay',[sys,'/',['Launch_data/hold5’,13,'sampIe=.25/Unit  Delay']]) 
set_param([sys,'/',['Launch_data/hold5',13,'sample=.25/Unit  Delay']],... 

'Sample  time',Ts',... 

'position',[90,93,140,117]) 

add_block('built-in/Inport',[sys,'/’,['Launch_data/hold5',13,'sample=.25/input']]) 

set_param([sys,'/',['Launch_data/hold5',13,'sample=.25/input']],... 

'position',[25,35,45,55]) 

add_block('built-in/Outport',[sys,'/',['Launch_data/hold5',  1 3,'sample=.25/output']]) 
set_param([sys,'/',['Launch_data/hold5',13,'sample=.25/output']],... 

'position',[345,45,365,65]) 

add_line([sys,’/',['Launch_data/hold5',13,'sample=.25']],[330,55;340,55]) 

addJine([sys,'/',['Launch_data)Tiold5',13,'sample=.25']],[265,55:280,55]) 

add_line([sys,'/',['Launch_data/hold5',13,'sample=.25']],[215,55;230,55]) 

addJine([sys,'/',['Launch_data/hold5',13,'sample=.25']],[145,105;165,105;165,60;185,60]) 

addJine([sys,'/',['Launch_data/hold5',13,'sample=.25']],[140,45:I85,45]) 

addJine([sys,'/',['Launch_data/hold5',13,'sample=.25']],[50,45:95.45]) 

add_line([sys,'/',['Launch_data/hold5',13,'sample=.25']],[65,45;65,105;85,105]) 

set_param([sys,'/',['Launch_data/hold5',13,'sample=.25']],... 
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‘Mask  Display’;plot(0,0,100.100.[90,70,50,30,10],[60,40,8030,20])’,... 

'Mask  Type’, 'First-Order  Hold',... 

'Mask  Dialogue’, 'First-Order  HoldlSample  Time:’) 
set_param([sys,'/',['Launch_data/hold5’,13,’sample=.25']],... 

'Mask  Translate’,'Ts=@  I 

'Mask  Help’, 'Implements  a  First-Order  sample-and-hold  latch  operating  at  the  sampling 
interval  you  specify.',... 

'Mask  Entries’,'.25V’) 


%  Finished  composite  block  ['Launch_data/hold5’,  1 3,’sample=,25’]. 

set_param([sys,'/’,['Launch_data/hold5’,13,’sample=.25']],... 

'orientation', 2,... 

'position', [695,64,730,96]) 

add_biock('built-in/Note’,[sys,'/','Launch_data/BLOCK:  Launch_data']) 
set_param([sys,'/’,'Launch_data/BLOCK:  Launch_data'],... 

’position’, [255,310, 260, 315]) 
addJine([sys,’/’,'Launch^data'],[750,245;155,245]) 
add  Jine([sys,'/’,'Launch_data’],[685,245;685, 1 80;640, 1 80]) 
add^line([sys,’/’,'Launch^data’],[600, 1 80;540, 1 80;540,230;  1 55,230]) 
add  Jine([sys,'/','Launch_data'], [560,245:560, 1 30;535, 1 30]) 
add_line([sys,’/’,'Launch_data'],[580, 140:535, 140]) 
addJine([sys,’/’,'Launch_data'],[500, 135:420, 1 35]) 
addJine([sys,’/',’Launch_data’],[690, 80:655,80:655, 135:615,135]) 
add  Jine([sys,'/’,'Launch_data'], [800, 145:6 15, 145]) 
add  Jine([sys,'/’,’Launch^data’], [770,80:735, 80]) 
addJine([sys,’/’,’Launch^data'], [330, 140:295,140:295,215:155,215]) 
add  Jine([sys,’/’,’Launch_data’],[225, 1 40: 1 80, 1 40;  1 80,200: 1 55,200] ) 
addJine([sys,’/','Launch_data'],[445, 150:435, 145:420, 145]) 
addJine([sys,’/',’Launch_data’],[385, 140:370, 140]) 
addJine([sys,’/’,’Launch_data'],[330, 140:265, 140]) 
addJine([sys,’/','Launch_data’],[l  15,230:75,230]) 
addJine([sys,’/’,'Launch_data’], [5 10,260: 155,260]) 
set_param([sys,’/','Launch_data’],... 

'Mask  Display', 'Missile  theta  \n  Launch  dataVnMissile  phi  ’) 


%  Finished  composite  block  ’Launch_data'. 

set_param([sys,’/','Launch_data’],... 

'position', [885, 693, 985,742]) 


%  Subsystem  'MissileVeLSeen_by-.A//C. 
new_system([sys,'/','MissiIeVeLSeen_by_A//C']) 

set_param([sys,'/’,'MissileVeLSeen_by_A//C’],'Location', [57,353, 980,715]) 

add_biock('bui]t-in/Demux',[sys,’/’,'MissileVeLSeen_by_A//C/D5']) 

set_param([sys,'/',’MissiIeVeLSeen_by_A//C/D5'],... 

’orientation',  1,... 

'outputs', *2',... 

'position’,[785,70,825,ll0]) 
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add_block('built-in/Inport‘,[sys,7'/MissileVeLSeen_by_A//C/AC  velocity  (2,x)*]) 
set_param([sys//’/MissiIeVeLSeen_by_A//C/AC  velocity  (z,x)‘],... 

’orientationM,,.. 

’position’, [795, 35,815,55]) 

add_block('built-in/Derivative’,[sys,'/',’MissileVeLSeen_by_A//C/dt2']) 

set_param([sys,’/',’MissileVeLSeen_by_A//C/dt2'],... 

'orientation', 2,... 

’position’,[645, 175,675, 195]) 

add_block('built-in/Derivative’,[sys,’/’,’MissileVeLSeen_by_A//C/dt']) 

set_param([sys,V','MissileVeLSeen_by_A//C/dt’],... 

*orientation',2„.. 

’position’, [745,220,775,240]) 

add_block(’built-in/Sum',[sys,’/',’MissileVeLSeen_by-A//C/Sum20’]) 

set_param([sys,’/’,’MissileVeLSeen_by__A//C/Sum20’],... 

’orientation’,2,... 

’inputs',’4-’,... 

’position', [630,2 10,650,230]) 

add_block(’built-in/Product',[sys,’/',’MissiIeVeLSeen_by-.A//C/nfi27']) 

set_param([sys,'/',’MissiIeVeLSeen_by_A//C/m27’],.., 

'orientation’,2,... 

’position’,[570,205, 595,2251) 

add_block(’buiIt-in/Product’,[sys,’/’,’MissileVeLSeen_by_A//C/m28’]) 

set_param([sys,’/’,’MissileVeLSeen_by__A//C/m28’],... 

’orientation’,2,... 

’position’,[565, 170,590, 190]) 

add_block(’built-in/Derivative’,[sys,’/',*MissileVeLSeen_by_A//C/dtr]) 
set_param([sys,’/’,'MissileVeLSeen_by_A//C/dtl '],... 

'orientation',2,... 

’position’,[670, 145,700, 165]) 

add_block('built-in/Demux’,[sys,’/’,'MissiIeVeLSeen_by_A//C/Demux6']) 

set_param([sys,’/’,’MissileVeLSeen_by_A//C/Demux6’],... 

'orientation',2,... 

’outputs’,’3’,... 

’position’, [830, 243,870,297]) 

add_block(’built-in/Sum’,[sys,'/’,’MissileVeLSeen_by«A//C/Sum22']) 

set_param([sys,’/’,’MissileVeLSeen_by_Ay/C/Sum22’],... 

’orientation’,2,... 

’inputs',V,... 

’position’,[615, 125,635,145]) 

add_block(’built-in/Product’,[sys,’/',’MissileVeLSeen_by_A//C/m26']) 

set__param([sys,’/’,'MissileVeLSeen_by_A//C/m26'],... 

*orientation’,2,... 

’position’,[555, 125,580, 145]) 

add_block(’built-in/Sum’,[sys,’/’,'MissileVeLSeen_by_A//C/Sum2r]) 
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set_param([sys//’/MissiIeVeLSeen_by_Ay/C/Sum2r],... 

'orientation\2,... 

'inputs’, ‘+++',... 

’position’,[490, 127,5 10, 163]) 

acld_block('buiIt-in/Outport',[sys,'/’,[’MissileVeLSeen_by_A//C/Relative  velocity  ',l3,’w//  noise']]) 
set_parann([sys,'/’,['MissiIeVeLSeen_by-A//C/Relative  velocity  ’,13,'w//  noise']],... 

'orientation’,2,... 

'position', [60, 165,80, 1 85]) 

add_block('built-in/Fcn’,[sys,’/',’MissileVeLSeen_by-A//C/Fcnl5’]) 

set_param([sys,’/’,’MissiieVeLSeen_by-A//C/Fcnl5’],... 

'orientation',2,... 

'Expr',’sqrt(u[  I  ])',... 

'position’,[365, 133,450, 157]) 

add_bIock(’built-in/Product',[sys,’/','MissileVeLSeen_by_A//C/m25’]) 

set_param([sys,'/’,'MissileVeLSeen_by^A//C/m25'],... 

'orientation’,2,... 

'position’,[200, 190,225,2 10]) 

add_bIock('buiIt-in/Constant’,[sys,'/','MissileVeLSeen_by_A//C/missiIevelstd']) 

set_param([sys,'/','MissileVeLSeen_by_A//C/missiIeveIstd'],... 

’orientation',2,... 

’Value',’missilevelstd',... 

'position',[265,205,345,225]) 

add_block(’built-in/Sum',[sys,'/',’MissileVeLSeen_by_A//C/Sum25’]) 

set_param([sys,‘/’,'MissileVeLSeen_by-Ay/C/Sum25'],... 

'orientation',2,... 

’position',[140, 157,160,193]) 

add_block(’built-in/Inport’,[sys,'/',['MissiIeVeI_Seen_by_A//C/Missile  position  ',13,'(x,y,z)’]]) 
set_param([sys,’/’,['MissiIeVeLSeen_by_A//C/Missile  position  ',l3,’(x,y,z)']],.,. 

'orientation’,2,,.. 

'Port', '2',... 

'position',[930,260,950,280] ) 


%  Subsystem  ['MissileVeLSeen_by_A//C/hoId7’,13,’sample:  .25']. 
new_system([sys,'/’,['MissileVeLSeen_by_A//C/hold7’,13,'sample:  .25']]) 

set_param([sys,'/’,[’MissiIeVeLSeen_by_A//C/hoId7',13,'sample:  .25’]],’Location',[5 1 1,15 1,915,322]) 

add_block(’built-in/Zero-Order  Hold',[sys,’/',['MissileVeLSeen_by_A//C/hold7’,13,'sample:  .25/Zero- 
Order',  13, 'Hold']]) 

set_param([sys,'/’,['MissiIeVeI_Seen_by-A//C/hold7',13,'sample:  .25/Zero-Order',  13,'Hold’]],... 
'Sample  time’,'Ts',... 

’position',[100, 29, 135,61]) 

add_block('built-in/Gain',[sys,'/',['MissiIeVeLSeen_by_A//C/hold7',  13, 'sample:  .25/Gain’]]) 
set_param([sys,'/’,['MissileVeLSeen_by-A//C/hold7’,13,’sample:  .25/Gain']],.., 

’Gain’,’l/Ts’,... 

’position',[285, 33,325,77]) 
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add_bIock('built-in/Integrator’,[sys,T,['MissileVeLSeen_by_A//C/hoId7',  13, 'sample:  .25/Integrator']]) 
set_param([sys,‘/’,['MissileVeLSeen_by_A//C/hoId7',  13, 'sample:  .25/Integrator’]],. 

'position', [235,42.260,68]) 

add_block(’built-in/Sum',[sys,'/',['MissiIeVeLSeen_by_A//C/hoId7M3, 'sample:  .25/Sum']]) 
set_param([sys,'/',['MissileVeLSeen_by_A//C/hold7’,  13, 'sample:  .25/Sum']],... 

’inputs’, 

’position', [190,37,210,68]) 

add_bIock(’built-in/Unit  DeIay’,[sys,'/',['MissiIeVel_Seen_by_A//C/hoId7',  13, 'sample:  .25/Unit  Delay’]]) 
set_param([sys,V',['MissiIeVeI_Seen_by_A//C/hoId7’,  13, 'sample:  .25/Unit  Delay’]],... 

'Sample  time','Ts',... 

’position',[90,93,140,117]) 

add_block(’built-in/Inport',[sys,'/',['MissileVeLSeen_by_A//C/hoId7',13,'sampIe:  .25/input’]]) 
set_param([sys,'/’,[’MissileVeLSeen_by_A//C/hold7',  13, 'sample:  .25/input']],... 

'position', [25, 35,45, 55]) 

add_block('buiIt-in/Outport’,[sys,’/’,['MissiIeVeLSeen_by_Ay/C/hoId7',l3,'sample:  ,25/output’]]) 
set_param([sys,'/',[’MissiIeVeLSeen_by_A//C/hold7',I3,'sampIe:  .25/output']],... 

’position', [345,45, 365, 65]) 

addJine([sys,*/’,[’MissiIeVeLSeen_by^A//C/hold7',  13, 'sample:  .25']],[330,55;340,55]) 
addJine([sys,’/',['MissileVeLSeen^by_MC/hold7’,I3,’sample:  .25']],[265,55;280,55]) 
addJine([sys,'/',['MissileVeLSeen3y_A//C/hold7',I3,'sample:  .25']],[215,55;230,55]) 
addJine([sys,’/',[’MissiieVeLSeen3y_A//C/hoId7’,!3,’sampIe:  .25']],[145,105;165,105;165,60;185,60]) 
addJine([sys,'/’,['MissileVeLSeen_by^A//C/hold7’,13,'sampie:  .25’]],[140,45;185,45]) 
addJine([sys,'/',[’MissiIeVeLSeen.by-A//C/hold7',i3,'sample:  .25’]],[50,45;95,45]) 
addJine([sys,’/’,['MissiIeVeLSeen_by^A//C/hold7’,l3,'sampIe:  .25']],[65,45;65,105;85,105]) 
set_param([sys,*/',['MissiIeVel_Seen_by_A//C/hold7’,  1 3,'sample:  .25']],... 

•Mask  Display’,'plot(b,0, 100, 100, [90,70, 50,30, 10],[60, 40,80, 30,20])',... 

’Mask  Type','First-Order  Hold',... 

'Mask  Dialogue’,’First-Order  HoldlSample  Time:') 
set_param([sys,’/',['MissileVeLSeen_by-.A//C/hoId7',  1 3,'sample:  .25']],... 

'Mask  Translate’,Ts=@  I 

'Mask  Help','Implements  a  First-Order  sample-and-hold  latch  operating  at  the  sampling 
interval  you  specify,',... 

'Mask  Entries', ’.25V') 


%  Finished  composite  block  [’MissiIeVeLSeen_by-.A//C/hold7’,l 3,'sample:  .25']. 

set_param([sys,’/',['MissiIeVeLSeen_by-A//C/hold7’,  1 3,’sample:  ,25']],... 

’orientation’, 2,... 

’position’,[365, 179,400,2 11]) 

add_block('built-in/White  Noise',  [sys,'/',  [’Missile  VeLSeen_by_A//C/White  Noise',  13,'8’]]) 
set_param([sys,’/’,['MissileVeLSeen_by-.A//C/White  Noise',  13, '8']],... 

'orientation', 2,... 

'Seed’,’noiseseed(8)’,... 

'position’, [445, 185,465,205]) 

add_block(’buiIt-in/Note',[sys,’/*,’MissileVeLSeen_by_A//C/BLOCK:  MissiIeVeLSeen_by_A//C’]) 
set_param([sys,’/',’MissileVeLSeen_by_A//C/BLOCK:  MissiIeVeLSeen_by-.A//C'],... 

'position’, [3 15,300,320,305]) 

add_line([sys,’/’,’MissiIeVeLSeen^by_.A//C’],[825,250;792,250;792,230;780,230]) 
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addJine([sys;/';MissileVeLSeen_by^A//C],[825,270;7l7,270;717,185;680,185]) 

addJine([sys;/';MissileVeLSeen3y_A//C],[825,290;722,290;722,l55;705,155]) 

addJine([sys;/VMissileVeLSeen3y-A//C],[360,I45;302,145;302J65;165,l65]) 

add  Jine([sys;/’;MissileVeLSeen^by_A//C’],[  1 95,200;  1 87,200;  1 87, 1 85;  1 65, 1 85]) 

addJine([sys,7';MissileVeLSeen_by_A//C],[360,195;230,195]) 

addJine([sys,7,’MissileVeLSeen3y-A//C],[260,215;257,205;230,205]) 

addJine([sys,T,'MissiIeVeLSeen_by_A//C],[440,l95;405,195]) 

addJine([sys,’/’,’MissileVeLSeen_by_A//C],[640,I85;595,185]) 

addJine([sys,7,’MissileVeLSeen_by^A//C],[630,l85;630,175;595,175]) 

add  Jine([sys,7,‘MissileVeLSeen3y_A//C’],[485, 145;455, 145]) 

addJine([sys,7;MissileVeLSeen_by^A//C],[625,220;625,210;600,210]) 

addJine([sys,7,'MissileVeLSeen3y^A//C’],[625,220;600,220]) 

addJine([sys,V',*MissileVeLSeen_by_A//C'],[740,230;732,225;655,225]) 

add_line([sys,7’,'MissiIeVeLSeen_by_A//C],[665, 155;640, 140]) 

addJine([sys,7',’MissileVeLSeen_by_A//C],[815,l  15;815,215;655,215]) 

addJine([sys,7,’MissiIeVeLSeen3y--A//C],[795,115;795,130;640,130]) 

add  Jine([sys,7’;MissiIeVeLSeen^by_A//C’],[560, 1 80;547, 1 80;547, 145  ;5 15, 145]) 

addJine([sys,7’,'MissiIeVeLSeen_by_A//C],[565,215;525,215;515,155]) 

add  Jine([sys,7','MissiIeVeLSeen_by_A//C],[550, 135;5 15,135]) 

addJine([sys,T,’MissileVeLSeen_by_A//C],[610,135;585,130]) 

add  Jine([sys,7,'MissiieVeLSeen_by-A//C],[6 10, 135;585, 140]) 

addJine([sys,7*,‘MissiIeVeLSeen_by_A//C],[805,60;805,65]) 

addJine([sys;/’,‘MissiIeVeLSeen3y^A//C],[135,175;85,175]) 

addJine([sys,7’,'MissileVeLSeen_by_A//C],[925,270;875,270]) 

set_param([sys,7','MissiIeVel_Seen_by-A//C'],... 

'Mask  Display',’AC  velocity  (z,x)  \n  Relative  VelocityVnMissile  pos  (x,y,z)  ’) 


%  Finished  composite  block  'MissiIeVeI_Seen_by_A//C. 

set_param([sys,7’,’MissileVel_Seen_by_A//C']„.. 

’position',[660, 1 86,795,244]) 


%  Subsystem  'Quad_data'. 
new_system([sys,7’,’Quad_data’]) 

set_param([sys,7’,’Quad_data'],‘Location’,[85,330, 1 125,630]) 

add_block0built-in/Constant',[sys,T,’Quad_data/.95’]) 

set_param([sys,7',’Quad_data/.95‘]„.. 

’orientation', 2,... 

’Vaiue’,'.95’,.., 

’position',[  1 60,9 1 , 1 85 , 1 09]) 

add_block('buiIt-in/Product',[sys,7,'Quad_data/mn7']) 

set_param([sys,7,'Quad_data/mn7'],... 

'orientation',2,... 

'position', [75,107,100,143]) 

add_block(’buiIt-in/MATLAB  Fcn’,[sys,7,’Quad_data/divplus.m’]) 
set_param([sys,7,'Quad_data/divplus.m’],... 

’orientation',2,.,. 

'MATLAB  Fcn','divplus’,... 

'Output  Width',’!',... 
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’position’,[l  15,1 18,170,152]) 

add_block('built-in/Constant',[sys,’/’,’Quad_data/Avg  det.  dist’]) 
set_param([sys,7,’Quad_data/Avg  det.  dist.’],... 

'orientation', 2,... 

'Value','Average_detect_dist',... 

'position', [235, 6 1 ,370,79]) 

add_block('built-in/Mux’,[sys,’/',’Quad_data/Mux2 1 ']) 
set_param([sys,'/','Quad_data/Mux2 1 '],... 

'orientation*,2,... 

’inputs',’2',... 

'position', [185,1 18,215,147]) 

add_block('built-in/Sum',[sys,'/','Quad_data/sum5n2']) 

set_param([sys,'/’,’Quad_data/sum5n2'],... 

'orientation', 2,... 

'inputs','+-’,... 

'position', [275, 93, 300,1 17]) 

add_block{’buiIt-in/Product’,[sys,'/','Quad_data/mn6']) 

set_param([sys,'/’,’Quad_data/mn6'],... 

'orientation',2,... 

'inputs’,'3',... 

'position', [330, 102,355, 1 38] ) 

add_block('buiIt-in/Outport',[sys,’/','Quad_data/out_r]) 

set_param([sys,’/',’Quad_data/out_r],... 

'orientation', 2,... 

’position',[25, 1 15,45,135]) 

add_block('built-in/Fcn',[sys,'/',’Quad_data/Fcn7']) 

set_param([sys,’/’.'Quad_data/Fcn7'],... 

'orientation',2,... 

'Expr', 'cos(u[l  ])*,... 

'position', [505, 99,575,121]) 

add_block(’built-in/Constant',[sys,'/’,'Quad_data/deItaphi']) 

set_param([sys,'/’,'Quad_data/deltaphi’],... 

'orientation’,2,... 

’Value',’((90/57.3)+accIimbangIe-(93.12/57.3))’,.. 
'position', [605, 10 1, 880, 119]) 

add_block('built-in/Constant’,[sys,'/*,'Quad_data/AC  velocity’]) 
set_param([sys,'/’,'Quad_data/AC  velocity'],... 

'orientation’,2,... 

'Value',’acver,... 

'position',[420, 122,470, 138]) 

add_block('built-in/Constant’,[sys,'/',’Quad_data/pi']) 

set_param([sys,'/’,'Quad_data/pi'],... 

’orientation',2,... 

*Value’,'pi',... 

'position', [730,161, 755, 179]) 


114 


add_block('buiIt-in/Sum’,[sys,7',’Quad_data/sum5n  T]) 
set_param([sys//','Quad_data/sum5n  I 
’orientation', 2,... 

'inputs',’+-',... 

'position\[680, 153,705, 177]) 

add_bIock:('built-in/Demux’,[sys,’/‘,’Quad_data/Denfiux2’]) 

set_param([sys,’/’,'Quad_data/Demux2*],... 

'orientation', 2,... 

'outputs', '2',... 

'position’,[780, 141,820,174]) 

add_bIock(’built-in/S witch’, [sys,'/',[’Quad_data/S witch  ’,13,’threshold=pi//2']]) 
set_param( [sy s,’/’, [’Quad_data/S  witch  ',13 threshold=pi//2’] ] , . . . 
'orientation',2,... 

'Threshold', '90/57.3',... 

’position',[840, 144,870, 176]) 

add_bIock(’built-in/Outport',[sys,'/’,'Quad_data/quad_time_to_target']) 

set_param([sys,'/',’Quad_data/quad_time_to_target'],... 

'orientation',2,... 

'Port’,’2'„.. 

’position',[740, 200, 760,220]) 

add_bIock('buiIt-in/Fcn’,[sys,'/','Quad_data/Fcn5’]) 

set__param([sys,'/',’Quad_data/Fcn5'],... 

'orientation',2,... 

'Expr','cos(u[l  ])',... 

’position’,[555, 155,625, 175]) 

add_biock('built-in/Constant',[sys,'/*,'Quad_data/front  shot  info']) 
set_param([sys,’/','Quad_data/front  shot  info'],... 

'orientation',2,... 

'VaIue*,'front_shotJnfo',... 

’position',[950, 187, 1035,203]) 

add_bIock('built-in/Inport',[sys,’/',*Quad_data/acmtheta']) 

set_param([sys,'/',’Quad_data/acmtheta’],... 

’orientation',2,... 

'position',  [  1 000, 153,1 020, 1 67]) 

add_block('built-in/Constant*,[sys,'/’,'Quad_data/rear  shot  infol’]) 
set_param([sys,'/','Quad_data/rear  shot  infol'],... 

'orientation’,2,... 

’VaIue','rear_shotJnfo',... 

’position’,[l035, 142,1 120,158]) 

add_block('built-in/Constant',[sys,’/’,'Quad_data/average  missile  velocity']) 
set_param([sys,'/’,’Quad_datayaverage  missile  velocity’],... 

'orientation',2,... 

’Value','avg_missilever,... 

'position’,[490,62,595,78]) 

add_block('built”in/Note',[sys,'/',’Quad_data/BLOCK:  Quad_data']) 
set_param([sys,'/',’Quad_data/BLOCK:  Quad_data'],... 
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'position', [3 15,235,320,240]) 

add_line([sys,'/','Quad_data'],[775,l50;725,150;725,160;710,160]) 
addJine([sys,'/','Quad_data'],[  1 55, 1 00;  1 35, 1 00;  135,1 15 ;  105, 1 1 5]) 
addJine([sys,'/’,'Quad_data'],[  1 10, 135;  105, 1 35]) 
addJine([sys,'/’,'Quad_data'],[  1 80. 1 35;  175, 1 35]) 
addJine([sys,'/','Quad_data'],[230,70;220,125]) 
addJine([sys,’/','Quad_data'],[270,105;265.105;265,140;220,140]) 
addJine([sys,'/’,'Quad_data'],[325,120;320,120;320,l  10;305,1 10]) 
add_line([sys,'/’,'Quad_data'],[485,70;450.70;450,94;325,94;325,100;305,100]) 
addJine([sys,'/’,'Quad_data'],[500,l  10;360.1 10]) 
addJine([sys,'/’,'Quad_data'].[550.165;490,165;490,120;360,120]) 
addJine([sys,’/*,'Quad_data'],[4 15, 130;360, 1 30]) 
add_line([sys,'/','Quad_data'],[675, 165;630, 1 65]) 
addJine([sys.'/','Quad_data'], [600,1 10;580,1 10]) 
addJine([sys,'/','Quad_data'],[725, 170;7 10, 1 70]) 
addJine([sys,'/’,'Quad_data'],[835. 160;825, 1 60]) 
add_line([sys,'/','Quad_data'].[  1030, 150;875, 150]) 
addJine([sys,'/’,'Quad_data'],[945, 195;920, 1 95  ;920. 170;875, 1 70]) 
add_line([sys,'/','Quad_data'],[70, 125;50. 125]) 
addJine([sys,’/’,'Quad_data'].[995, 1 60;875, 160]) 
addJine([sys,'/*,'Quad_data'],[775, 165;765.2 10]) 
set_param([sys,7','Quad_data'],... 

'Mask  Display','  Quradrant\n  time  to\n  target  \nAC-missile  \ntheta 
\n  QuadrantVn  launch\n  delay') 


%  Finished  composite  block  'Quad_data'. 

set_param([sys,'/','Quad_data'],... 

'position', [950,44 1 ,1040,534]) 


%  Subsystem  'Fire_timing'. 
new_system([sys,'/','Fire_timing']) 

set_param([sys,'/','Fire_timing'],'Location',[  145,484, 1 1 39,876]) 

add_block('built-in/Inport',[sys,'/','Fire_timing/AC-Missile  theta']) 
set_param([sys,'/','Fire_timing/AC-Missile  theta'],... 

'position',[385.125,405,145]) 

add_block('built-in/Constant',[sys,'/','Fire_timing/Launch  time  safety  factor']) 
set_param([sys,'/','Fire_timing/Launch  time  safety  factor'],... 

'Value','launchtime_safetyfactor',... 

'position',[435,85,585,105]) 

add_block('built-in/Sum',[sys,'/','Fire_timing/S  1 5']) 
set_param([sys,'/','Fire_timing/S15'],... 

'position', [635,91,655,149]) 

add_block('built-in/Look  Up  Table',[sys,'/',['Fire_timing/theta  of  missile  in,  ',13,'time  to  target  out']]) 
set_param([sys,'/',['Fire_timing/theta  of  missile  in,  ',13,'time  to  target  out']],... 
'Input_Values','theta_missile_lu',... 

'Output_V  alues'.'ti  me_lu',... 

'position',[535, 123,565, 147]) 
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add_block('buiIt-in/MATLAB  Fcn\[sys//\rFire_timing/zerocheckM3,Xu(i)>0)']]) 
set_param([sys,7,['Fire_timing/zerocheckM3/(u(l)>0)']],... 
’MATLABFcn';(u(l)>Oy,... 

’position\[770, 148,840, 1 82]) 

add_bIockCbuiit-in/Suni',[sys,7’,'Fire Jiming/Sum  1 9’]) 
set_param([sys,'/',’Fire_timing/Sum  1 9’],... 

’inputs','-+‘,... 

’position\[730, 149,750, 176]) 

add_blockCbuilt-in/Constant',[sys,7,Tire_timing/rangestd']) 

set_param([sys,7’,'Fire_tiniing/rangestd'],... 

'Value’,'rangestd',... 

‘position\[200, 172,265, 188]) 

add_block('built-in/Product',[sys,7*,*Fire_timing/m24’]) 

set_param([sys,7’,'Fire_timing/m24’],... 

’position',[305, 165,330, 1 85]) 

add_block('buiIt-in/MATLAB  Fcn',[sys,7,'Fire_timing/division.m’]) 
set_param([sys,7,’Fire_timing/division.m'],... 

'MATLAB  FcnVdivision*,... 

'Output  Width',’!',... 

'position', [625, 195,675,225]) 

add_blockCbuilt-in/Mux’,[sys,’/‘,’Fire_timirtg/Mux  15’]) 
set_param([sys,'/’,’Fire_tinning/Muxl5’],... 

'inputs’, '2',... 

’position', [560, 193,590,222]) 

add_bIock('buiit*in/Inport',[sys,’/','Fire_timing/ReIative  Velocity']) 
set_param([sys,’/',’Fire_timing/ReIative  Velocity’],... 

'Port', '2',... 

'position', [480,205,500,225]) 

add_block(’built-in/Sum’,[sys,'/’,'Fire_timing/Sum23’]) 

set_param([sys,'/’,'Fire_timing/Sum23'],... 

'inputs’, 

'position', [395, 197,420,233]) 

add_block('buiIt-in/Constant’,[sys,’/','Fire_timing/IethaIdist_’]) 

set_param([sys,'/’,'Fire_timing/lethaIdistJ],... 

'Value', 'lethaldist',... 

’position’,[300,2 18,370,232]) 

add_block('built-in/Inport',[sys,'/’,['Fire_timing/AC-Missile*,13,’sIantrange’]]) 

set__param([sys,'/’,[’Fire_timing/AC-Missile',13,'sIantrange']],... 

’Port’,’3',... 

'position', [250, 205,270, 225]) 

add_block('built-in/Outport’,[sys,'/','Fire_timing/Fire  Flag']) 
set_param([sys,’/',’Fire_timing/Fire  Flag'],... 

'position',[880,155,900,I75]) 
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%  Subsystem  [’Fire_timing/ho!d6M3/sample=.25']. 


new_system([sys,7',['Fire  jiming/hoId6’,  1 3/sampIe=.25']]) 

set_param([sys//',['Fire_timing/hold6M3/sample=.25']],'Location’,[51 1,151,915322]) 

add_block(*buiIt-in/Zero-Order  Hold’,[sys,'/’,['Fire_timing/hoId6M3,'sample=.25/Zero-Order',13,’HoId']]) 
set_param([sys,y',['Fire_timing/hold6M3,’sampIe=.25/Zero-Order',13,'Hold']],... 

'Sample  time',’Ts',... 

’position',[100, 29,135,61]) 

add_block('built-in/Gain',[sys,'/*,[’Fire_timing/hold6M3,’sample=.25/Gain’]]) 

set_param([sys,'/’,[‘Fire_timing/hold6',13,’sampIe=.25/Gain’]],... 

'Gain’,’l/Ts',.,. 

•position', [285, 33, 325,77]) 

add_biock('buiIt-in/Integrator’,[sys,‘/',[’Fire_timing/hold6',l3,’sample=.25/Integrator']]) 

set_param([sys,'/’,['Fire_timing/hoid6M3,’sample=:.25/Integrator']],... 

'position', [235, 42,260,68]) 

add_biock('buiIt-in/Sum',[sys,’/',['Fire_timing/hoId6',i3,'sample=.25/Sum']]) 

set_param([sys,'/',['Fire_timing/hoId6',13,'sample=.25/Sum*]],... 

’inputs','+-',... 

•position', [190,37,210,68]) 

add_block('buiIt-in/Unit  DeIay',[sys,'/',['Fire_timing/hoId6',  I3,'sample=.25/Unit  Delay']]) 
set_param([sys,'/',[*Fire_timing/hold6',13,'sampIe=.25/Unit  Delay']],... 

'Sample  time','Ts',... 

'position',[90,93,140,1 17]) 

add_biock('buiIt-in/Inport',[sys,'/',['Fire_timing/hoid6',13,’sample=.25/input']]) 

set_param([sys,'/',[’Fire_timing/hoId6',I3,'sample=.25/input’]],... 

•position', (25,35, 45 ,55]) 

add_block(’built-in/Outport',[sys,'/',['Fire_timing/hold6',I3,'sampIe=.25/output']]) 

set_param([sys,'/',['Fire_timing/hold6',I3,’sample=.25/output']],... 

•position’, [345,45,365,65]) 

addJine([sys,'/’,['Fire^timing/hoId6’,13,'sampIe=.25’]],[330,55;340,55]) 
add  Jine([sys,’/’,['FireJiming/hoId6’,13,'sample=.25']], [265,55:280,55]) 
add_line([sys,'/',['Fire_timing/hold6’,13,’sample=.25']], [2 15,55:230,55]) 
addJine([sys,'/',[’Fire_timing/hoId6',  13, 'sample=.25’]],[  145, 105;  165, 105: 165,60: 185, 60]) 
addJine([sys,‘/’,['Fire_timing/hoId6’,13,'sample=.25']],[140,45;  185,45]) 
addJine([sys,'/’,['Fire_timing/hoId6',13,'sampIe=.25']], [50,45:95 ,45]) 
addJine([sys,’/',['Fire_timing/hold6’, 13, 'sample=.25']], [65, 45:65,105:85,105]) 
set_param([sys,*/',['Fire_timing/hoId6’,13,'sampIe=.25']],... 

’MaskDispIay’,’pIot(0,0,100,100,[90,70,50,30,10],[60,40,80,30,20])',... 

'Mask  Type','First-Order  Hold',... 

'Mask  DiaIogue‘,’First-Order  HoldlSample  Time:’) 
set_param([sys,'/',['Fire_timing/hold6',13,'sampIe=:.25']],... 

'Mask  Translate', ’Ts=@  1 

'Mask  Help','Implements  a  First-Order  sample-and-hold  latch  operating  at  the  sampling 
interval  you  specify.',... 

'Mask  Entries’, •.25V) 
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%  Finished  composite  block  ['Firejiming/hoId6M3/sample=.25']. 

set_param([sys,'/’,['Fire_timing/hold6M3,‘sampIe=.25']],... 

’position\[l30, 154,165,186]) 

add_block('built-inAVhite  Noise',[sys,'/',[’Fire_timingAVhite  Noise',  13,7’]]) 
set_param([sys,'/’,['Fire_timingAVhite  Noise',!  3, '7']],... 

’Seed‘,'noiseseed(7)’,... 

'position', [70, 160,90, 180]) 

add_block(’buiIt-in/Note’,[sys,'/’,'Fire_timing/BLOCK:  Fire_timing']) 
set_param([sys,T,’Fire__timing/BLOCK:  Fire_timing’],... 

’position', [390,325, 395,330]) 

addJine([sys,’/’,'Fire^timing'],[335,I75;360,175;360,205;390,205]) 

addJine([sys,'/',’Fire^timing'],[375,225;390,225]) 

add  Jine([sys,’/','Fire_timing'],[  170, 170;300, 170]) 

add  Jine([sys,’/','Fire Jiming’],[270, 1 80;300, 1 80]) 

addJine([sys,'/',’Fire_timing’],[95,170;125,I70]) 

addJine([sys,'/','Fire_timing’],[660,120;685,120;685,155;725,155]) 

addJine([sys,V',’Fire^timing'],[590,95;615,95;615,l05;630,105]) 

addJine([sys,’/’,'Firejiming’],[425,2I5;445,215;445,200;555,200]) 

add  Jine([sys,’/’,’Firejiming'], [570,135:630,135]) 

add_line([sys,'/','Fire_timing'],[755, 165:765, 165]) 

addJine([sys,'/’,'Fire^timing’],[680,2 10:705,2 10:705,170:725, 170]) 

addJine([sys,'/’,'Fire^timing’], [595,210:620,210]) 

add  Jine([sys,'/*,’Fire_timing'],[4 10, 1 35:530, 1 35]) 

addJine([sys,'/’,’Fire__timing'],[845, 165:875, 165]) 

add  Jine([sys,’/',’Firc.timing'], [275,215:390,215]) 

add  Jine([sys,’/’,’FireJiming'], [505,215:555,215]) 

set_param([sys,’/',’Fire_timing'],... 

’Mask  Display’,’AC-MissiIe  \nTheta  \n\nRelative 

\nAC-Missile  \nslantrange  ’) 


%  Finished  composite  block  ’Fire_timing’. 

set_param([sys,'/’,’Fire_timing'],... 

’position', [930,560, 1055,650]) 


%  Subsystem  'Launch'. 
new_system([sys,’/’, 'Launch']) 

set_param([sys,'/’,'Launch’],’Location',[73,208,l  1 10,733]) 

add_block('built-in/Constant',[sys,’/',[’Launch/Detect  time’,  13,’  after  launch']]) 
set_param([sys,’/’, ['Launch/Detect  time’,  13,’  after  launch']],... 

'Value’, ’detecttal',... 

’position',[430,55,5 10,75]) 

add_bIock('built-in/To  Workspace’,[sys,'/’, ’Launch/launch  time’]) 
set_param([sys,'/’,'Launch/launch  time’],... 

’mat-name’,'launch_time’,... 

’buffer’,’ 1000000000’,... 

•position’,[  125,299,200,321]) 


Fire  Flag\n  Velocity 
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add_block(’built-in/Memory’,[sys//*,rLaunch/Memory2',  13, 'IC:[  100-1  100]']]) 
set_param([sys,'/’,[’LaunchAlemory2M3,'IC:[l00  -1  100]’]],... 

’orientation’,2,... 

•x0','[100-I  100]’,... 

'position', [245, 245,285, 275]) 

add_bIock(’buiIt-in/MATLAB  Fcn',[sys,'/’,['Launch/Get 
expendable’,  1 3,'Iaunch',  13, 'trajectory',  13,'lnchtraj.m']]) 

set_param([sys,'/’,['Launch/Get  expendable',  13,'launch’,13,'trajectory',l  3, 'Inchtraj.m']],. 
’orientation',2,... 

'MATLAB  Fcn’,’lnchtraj',.,. 

'Output  Width',’3',... 

’position’,[335,245,385,275]) 

add_bIock(’built-in/Mux',[sys,’/',’Launch/Muxi7']) 
set_param([sys,'/','Launch/Mux  17’],... 

’orientation’,2,... 

'inputs’,' 10’,... 

’position',[425,209,460,31I]) 

add_bIock(’built-in/Inport',[sys,’/’,'Launch/Time']) 
set_param([sys,'/', 'Launch/Time’],... 

'orientation’,2,... 

’Port',’3’,... 

’position’,[525, 180,545,200]) 

add_bIock(’built-in/Sum',[sys,'/','Launch/sum5n3']) 

set_param([sys,’/','Launch/sum5n3’],... 

’orientation’,2,... 

'inputs', 

•position’, [825, 237,845,293]) 

add_bIock(’buiIt-in/Inport',[sys,’/’, ['Launch/Quadrant  Time-',  1 3,'to-target']]) 
set_param([sys,'/',  ['Launch/Quadrant  Time-’,  1 3,'to-target']],... 

'orientation',2,... 

■position’, [895,272,9 15,298]) 

add_block(’built-in/Inport',[sys,'/',’Launch/Fire  Flag']) 
set_param([sys,'/’, ’Launch/Fire  Flag’],... 

'orientation',2,... 

'Port’,’4’,... 

'position', [720,150, 740, 170]) 

add_block('buiIt-in/Sum',[sys,'/','Launch/s2']) 

set_param([sys,'/*,'Launch/s2'],... 

'orientation',  I,... 

’position',[573, 140,622, 160]) 

add_block('built-in/Constant',[sys,'/’,[’Launch/Shot  time  ’,13,'after  T//0']]) 
set_param([sys,'/',[’Launch/Shot  time  ',13,’after  T//0’]],... 

'Value’,'shottime',... 

’position’,[520,20,600,40]) 

add_block(’built-in/Inport',[sys,'/',’Launch/Launch  data']) 
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set_param([sys,7, ’Launch/Launch  data’],... 

’orientation', 2,... 

'Port', '7',,.. 

'position\[695, 245 ,7 15,265]) 

add_bIock('built-in/Constant',[sys,'A'Launch/muzzIe  velocity']) 
set_param([sys,’/’, 'Launch/muzzle  velocity'],... 

'orientation', 2,... 

'Value', 'muzzle.vel',... 

'position', [630, 41 1,710,429]) 

add_block('built*in/Constant’,[sys,'/’,'Launch/R_Thrust']) 

set_param([sys,'/','Launch/R_Thrust'],... 

'orientation',2,... 

'Value', 'R_Thrust',... 

'position', [635, 360,690,380]) 

add_block('built-in/Constant',[sys,'/’,’Launch/Tduration’]) 

set_param([sys,’/','Launch/Tduration’],... 

'orientation',2,... 

'Value',’Tduration',... 

'position', [700, 335, 755,355]) 

add_bIock('built-in/Constant',[sys,'/’,’Launch/tracker']) 
set_param([sys,'/', 'Launch/tracker'],... 

'orientation',2,... 

'Value', 'tracker',... 

'position', [635, 3 10,690,330]) 

add_block(’built-in/Mux',[sys,'/', 'Launch/Mux  1 8’]) 
set_param([sys,'/’,’Launch/Mux  1 8'],... 

’orientation',2,... 

’inputs’,’5',... 

'position', [570, 307,600,433]) 

add_block('built-in/Constant',[sys,’/','Launch/Computation  time  required']) 
set_param([sys,'/','Launch/Computation  time  required’],... 

'  Value’, 'computation_time_required',... 

’position’,[255, 407,420, 423]) 

add_block('buiIt-in/Constant’,[sys,’/','Launch/Siew  time  required']) 
set_param([sys,’/’,'Launch/Slew  time  required'],... 

'Value',’slew_time_required',... 

'position',[250,369,395,391]) 

add_block(’built-in/Sum',[sys,'/’,’Launch/s3']) 
set_param(  [sy  s ,’/' ,  'Launch/ s  3 '  ] , . . . 

’position’,[455,400,500,420]) 

add_bIock('built-in/Inport’,[sys,’/’,[’Launch/Quadrant  Launch',  1 3,'delay’]]) 
set_param([sys,’/’, ['Launch/Quadrant  Launch’,  13, 'delay']],... 
'orientation',2,... 

’Port’,'2',... 

'position', [985, 255, 1005,275]) 
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add_block('built-in/Deinux\[sys//',*Launch/Dem5']) 

set_param([sys//'/Launch/Dem5'],... 

*orientation\2,.». 

'outputs', '3',... 

'position‘,[l50, 243, 190,277]) 

add_blockCbuilt-in/Inport',[sys,'/',’LaunchyAC  Velocity  (z,x)’]) 
set_param([sys,'/','Launch/AC  Velocity  (z,x)’],... 

'orientation',2,... 

'Port','6',... 

'position', [760, 215,780,235]) 

add_block('built-in/Inport',[sys,'/', 'Launch/ AC  position  (x,y,z)']) 
set_parani([sys,'/’,’Launch/AC  position  (x,y,z)'],... 

'orientation',2,... 

'Port',’5',... 

'position',[880, 195,900,2 15]) 

add_block('built-in/Outport',[sys,'/', ['Launch/Operational  ',13,'Time']]) 
set_param([sys,'/',['Launch/OperationaI  ',13,’Time’]],... 

’orientation’,2,... 

'position',[55,200,75,220]) 

add_block('built-in/Outport',[sys,'/’, ['Launch/Launch  ',13,’Flag’]]) 
set_param([sys,'/', [’Launch/Launch  ',13,’Flag’]],... 

'orientation',2,... 

’Port',’2',... 

'position',[50,250,70,270]) 

add_bIock('built-in/Constant',[sys,’/','Launch/lethaIdist']) 

set_param([sys,'/’,'Launch/lethaldist’],... 

'orientation',2,... 

'Value’,'lethaldist’,... 

'position’,[730,385,785,405]) 

add_block('built-ihyTo  Workspace',[sys,’A’Launch/Quadrant  launch  timel']) 
set_param([sys,'/', 'Launch/Quadrant  launch  time  1 '],.,. 

'mat-name’,'quadjaunch_time',... 

'buffer', 'lOOOOOOOOO',... 

'position', [830, 325,880,345]) 

add_bIock(’buiIt-in/Note',[sys,’/',’Launch/BLOCK:  Launch']) 
set_param([sys,’/’,’Launch/BLOCK:  Launch'],... 

'position', [465, 475, 470,480]) 
addJine([sys,'/’,’Launch'],[600,I65;600,295;465,295]) 
addJine([sys,’/’,'Launch'],[600,185;955,l85;955,245;850,245]) 
addJine([sys,’/’,'Launch’],[505,410;505,305;465,305]) 
addJine([sys,’/’,'Launch'],[515,65;520,65;520,105;585,105;585,135]) 
addjine([sys,'/', 'Launch'], [605,30;6i0,30;610, 135]) 
add  Ji  ne(  [sy  s,'/','Lau  nch’] ,  [425 ,4 1 5  ;450,4 1 5]) 
addJine([sys,'/’,’Launch'],[400,380;440,380;450,405]) 
addJine([sys,'/’,'Launch’],[  145,270;  110,270;  120,3 10]) 
addJine([sys,’/','Launch’],[625,420;605,420]) 
addJine([sys,7,'Launch'],[240,260;195,260]) 
addJine([sys,'/','Launch’],[220,260;220,330;515,330;515,285;465,285]) 
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addjine([sys,'/’, 'Launch'], [330,260:290, 260]) 

addJine([sys,'/','Launch'],[725,395;605,395]) 

addJine([sys,’/','Launch'],[630.370;605,370]) 

addJine([sys,'/’,'Launch'],[565,370;555,370:555,275;465,275]) 

addJine([sys,'/’,'Launch'],[695,345;605,345]) 

addJine([sys,'/’,'Launch'],[630,320;605,320]) 

addJine([sys,'/','Launch'],[420,260;390,260]) 

addJine([sys,'/','Launch'],[890,285:850,285]) 

addJine([sys,'/’,'Launch’],[980,265;850,265]) 

addJine([sys,'/','Launch'],[520, 190;480, 190:480,2 15:465,215]) 

addJine([sys,'/’,'Launch'],[715,160:660,160:660,225:465,225]) 

addJine([sys,'/’,'Launch'],[875,205:670,205:670,235:465,235]) 

addJine([sys,’/','Launch'],[755,225:680,225:680,245:465,245]) 

addJine([sys,'/’,'Launch'],[690,255:465,255]) 

addJine([sys,'/','Launch'], [145,250:1 10,250:1 10,210:80,210]) 

addJine([sys,'/’,'Launch'], [145,260:75,260]) 

addJine([sys,'/’,'Launch'],[820,265:780,265;780,335:825,335]) 

addJine([sys,'/','Launch'],[780,265:763,265:763,285:613,285:613.265:465,265]) 

set_param([sys,'/','Launch'],... 

'Mask  Display’,'Quad  time-to-target  \n\nQuadrant  Operational\nlaunch  delay 
Time  \nTime  \n\nFire  Flag  \n\nAC  position  (x,y,z)  \n\nAC 

velocity  (z,x)  Launch\n  Flag\nLaunch  data  ') 


%  Finished  composite  block  'Launch'. 

set_param{[sys,'/','Launch'],... 

'position',[l  190,525,1355,685]) 


%  Subsystem  ’Go_operationar. 
new_system([sys,'/','Go_operationar]) 

set_param([sys,’/','Go_operationar],'Location',  [454,486, 1040,832]) 

add_block('buiit-in/Memory',[sys,'/',['Go_operational/Memory',  1 3,’IC:- 1']]) 
set_param([sys,'/',['Go_operational/Memory',  1 3,'IC:- 1  ']],... 

'x0','-r,... 

'position',[l  15,160,155,190]) 

add_block('built-in/MATLAB  Fcn',[sys.’/',['Go_operational/Get 
expendable',  1 3,'operationar,  13,’trajectory',  13,'gtoptraj.m']]) 

set_param([sys,7',['Go_operational/Get  expendable’,  1 3,'operationar,  1 3,'trajectory',  1 3,'gtoptraj.m']],... 
'orientation',2,... 

'MATLAB  Fcn’,'gtoptraj',... 

'Output  Width',' 1',... 

'position',[l  15,70,165,100]) 

add_block('built-in/Constant',[sys,'/','Go_operational/oper_duration']) 

set_param([sys,'/','Go_operational/oper_duration'],... 

'orientation',2,... 

'Value','oper_duration',... 

'position',[280,90,375,l  10]) 

add_block('built-in/Mux',[sys,’/','Go_operational/Mux7']) 
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set_param([sys»V','Go_operational/Mux7’],... 

'orientation\2,... 

’inputs\'5',... 

'position’, [205 ,45 >240, 1 25]) 

add_bIock(’buiIt-in/Inport\[sys//’,'Go_operational/Time']) 

set_param([sys//’,'Go_operational/Time'],.„ 

'orientation', 2,... 

'position', [265, 30,285, 50]) 

add_block(’buiIt-in/Outport',[sys.’/’,’Go_operational/Operational  Flag']) 
set_param( [sy s,'/',’Go_operati onal/Operational  Flag' ] , . . . 

'position', [310, 165,330, 185]) 

add_bIock('built-in/Inport',[sys,*/’,’Go_operational/OperationaI  Time']) 
set_param([sys,'/’,’Go_operationai/Operational  Time'],... 

’orientation’,2,.., 

'Port',’2',... 

'position', [400,30,420,50]) 

add_block('buiIt-in/Inport',[sys,'/’,['Go_operationa!/Expendable  ’,  l3,'position//velocity’,  13,'  (x,y,2)']]) 
set_param([sys,'/’,[’Go_operationaI/Expendable  ',13,’position//veIocity’,13,’  (x,y,z)']],... 

'orientation', 2,... 

'Port',’3',... 

’position’,[435,75,455,95]) 

add_block('buiIt-in/Note’,[sys,’/','Go_operational/BLOCK:  Go_operationar]) 
set_param([sys,’/',*Go_operationaI/BLOCK:  Go_operationai'],.., 

'position',[  150,255, 155,260]) 
addJine([sys,’/',’Go_operationa!’],[160,175;305,i75]) 
addJine([sys,'/’,’Go_operationar],[265,l75;265,l  15;245,1 15]) 
addJine([sys,’/’,’Go^operationar],[275,100;245,100]) 
add  Jine([sys,'/’,'Go_operationaI’],[200,85;  170,85]) 
addJine([sys,'/','Go_.operational'],[l  10,85;75,85;75,175;1 10,175]) 
add_line([sys,'/’,'Go_operationar],[260,40;260,55;245,55]) 
addJine([sys,'/',’Go_.operationai'],[395,40;315,40;3l5,70;245,70]) 
addJine([sys,'/’,’Go_operationar],[430,85;245,85]) 
set_param([sys,'/','Go_operationar],... 

'Mask  Display','  Global  TimeXnOperational  Operational\n  Flag 

\n  ExpendableVn  Position  (x,y,z)’) 


%  Finished  composite  block  'Go^operational*. 

set_param([sys,'/','Go_operationar],... 

'orientation’,2,... 

'position', [1225, 371, 1365,439]) 

add_block('buiIt-in/To  Workspace',[sys,’/’,'operational  time']) 
set_param( [sys,'/’, 'operational  ti me’] , . . . 

'mat-name' ,'opertime*,... 
’buffer',‘1000000000’,... 

’position',[15 10,555,1560,575]) 

add_bIock('built-in/To  Workspace', [sys,'/', 'mexslantrange']) 


Time 
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set_param([sys//\'mexslantrange’],... 

’mat-name\'mexslantrange',... 

’buffer’;iOOOOOOOOO\... 

’position’, [1725,345, 1815, 365]) 

add_block(’built-in/Stop  Simulation’,[sys,'/’,['Stop  simuIation’,13,’if  non-zero',  1 3, ’J]]) 
set_param([sys,’/’,['Stop  simulation’,  13, 'if  non-zero',  1 3, ’J]],... 

’position’, [  1760,244, 1 8 10,286]) 

add_block('built-in/To  Workspace’,[sys,’/'.’zexp’]) 
set_param([sys,’/',’zexp’],... 

’mat-name’, ’zexp’,.. . 

’buffer’,’1000000000’,... 

'position', [1810,170,1860, 190]) 

add_block('built-in/To  Workspace’, [sys,'/',’xexp’]) 
set_param([sys,'/’,’xexp'],... 

'mat-name', *xexp',... 

'buffer',' 1000000000’,... 

'position’,[1805,l  10,1855,130]) 

add_bIock('built-in/MATLAB  Fcn',[sys,’/',’exppos.m']) 
set_param([sys,’/*,'exppos.m'],... 

'orientation’,2,... 

'MATLAB  Fcn',’exppos’,... 

'Output  Width',’9’,... 

'position’,[  1545,50, 1595,80]) 

add_block(’buiIt-in/To  Workspace',[sys,’/’,'yexp’]) 
set_param([sys,’/','yexp'],... 

*mat-name',’yexp’,... 

•buffer',’1000000000’,... 

’position’,[1745,140,1795,l60]) 


%  Subsystem  'HitCheck'. 
new_system([sys,'/’,’HitCheck']) 

set_param([sys,'/’,'HitCheck'],'Location’,[250,337,902,672]) 

add_block('built-in/To  Workspace’,[sys,’/’,’HitCheck/Left  inboard  engine']) 
set_param([sys,'/’,'HitCheck/Left  inboard  engine’],... 

'orientation’,2,... 

’mat-name’, ’srlie’,... 

’buffer',’ 1000000000’,... 

’position’, [340,137,390, 153]) 

add_block(’buiIt-in/To  Workspace’, [sys,’/’,'HitCheck/Right  inboard  engine']) 
set_param([sys,'/’,’HitCheck/Right  inboard  engine'],... 

'orientation', 2,... 

'mat-name','siTie',... 

'buffer’, '1000000000',... 

'position', [310,107, 360, 123]) 

add_block('built-in/To  Workspace’, [sys,'/’,’HitCheck/Left  outboard  engine']) 
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set_param([sys»7/HitCheck/Left  outboard  engine'],... 

'orientation',!,... 

*  'mat-name' ,’srloe’,... 

'buffer',' 1000000000',. .. 

'position', [280,77,330,93]) 

add_block('built-inyTo  Workspace’,[sys,'/’,'HitCheck/Cockpit']) 
set_param([sys,’/’,'HitCheck/Cockpit'],... 

’mat-name','srcp',... 

'buffer','1000000000',... 

'position',[520, 107,570, 123]) 

add_bIock('buiIt-in/Demux',[sys,'/’,'HitCheck/Demux3']) 

set_param([sys,'/’,'HitCheck/Demux3'],-.. 

'outputs',’8',... 

’position',[400, 167,440,253]) 

add„bIock('built-in/MATLAB  Fcn',[sys,'/',’HitCheck/ifend.m']) 
set_param([sys,'/',’HitCheck/ifend.m'],... 

'MATLAB  Fcn','ifend’,... 

'Output  Width’,’8',... 

'position',[330, 195,380,225]) 

add_block('built-in/Mux',[sys,'/','HitCheck/Mux4']) 

set_param([sys,'/','HitCheck/Mux4'],... 

’inputs',’3',... 

'position',[275, 170,305,230]) 

add_block('buiIt-in/Constant',[sys,’/','HitCheck/Lethal  distance’]) 
set_param([sys,’/',’HitCheck/LethaI  distance'],... 

’Value’,'lethaldist',... 

'position',[155,189,225,211]) 

add_bIock('built-in/Inport',[sys,’/','HitCheck/AC  position  (x,y,z)’]) 
set_param([sys,7',’HitCheck/AC  position  (x,y,z)’],... 

'position‘,[55, 170,75, 190]) 

add_biock(’built-in/Inport’,[sys,'/',’HitCheck/MissiIe  position  (x,y,z)']) 
set_param([sys,’/','HitCheck/Missile  position  (x,y,z)’],... 

’Port’,'2',.., 

'position', [70,220, 90,240]) 

add_bIock('buiIt-in/Stop  Simulation’,[sys,’/',[’HitCheck/Stop  simulation’,  13,'if  non- zero',  13,'*]]) 
set_param([sys,’/’,['HitCheck/Stop  simulation',  13,’if  non-zero’,  13,"]],... 

’position',[520, 224,570, 266]) 

add_b^ock('buiIt-in/To  Workspace’, [sys,7’,’HitCheck/Right  outboard  engine’]) 
set_param([sys,'/','HitCheck/Right  outboard  engine'],... 

'mat-name', 'srroe',... 

'buffer’,'1000000000’,... 

'position', [525,77 ,575,93]) 

add_biock('built-in/To  Workspace', [sys,'/',’HitCheck/Empenage']) 
set_param([sys,'/’,'HitCheck/Empenage’],.,. 

'mat-name',’sremp*,... 
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■buffer’,' lOOOOOOOOO'.... 

'position’,[520, 137,570, 153]) 

add_block('built-inyTo  Workspace’,[sys,’/','HitCheck/Center  of  gravity']) 
set_param([sys,'/’,'HitCheck/Center  of  gravity’],... 

'mat-name','srcg’,... 

'buffer',' lOOOOOOOOO',... 

'position', [525, 167,575, 1 83]) 

add_bIock('built-in/Note',[sys,’/','HitCheck/BLOCK:  HitCheck']) 
set_param([sys.’/'.'HitCheck/BLOCK:  HitCheck’],... 

'position',[205,290,2 10,295]) 
addJine([sys,’/’,'HitCheck'], [230,200:270,200]) 
addJine([sys,'/’,'HitCheck'], [445,245:515,245]) 
addJine([sys,'/’,'HitCheck’],[445,235:475,235:475,175:520,175]) 
add_line([sys,’/’,'HitCheck’],[445,225:470,225:470,145:515,145]) 
addJine([sys,'rHitCheck'],[445,215:465,215:465,l  15:515,1 15]) 
addJine([sys,’/’.’HitCheck'],[445,205:460,205:460,85:520,85]) 
addJine([sys,'/’,’HitCheck'], [445,195:455,195:455,85:335,85]) 
addJine([sys,'A'HitCheck'],[445,185:450,185:450,l  15:365,1 15]) 
addJine([sys,'/','HitCheck'],[445,175:445,145:395,145]) 
addJine([sys,’/’,'HitCheck’],[385,210:395,210]) 
addJine([sys,'/','HitCheck'],[310,200:325,210]) 
addJine([sys,'A'HitCheck'],[80,180:270,180]) 
add_line([sys,’/’.'HitCheck'],[95,230:245,230:245,220:270,220]) 
set_param([sys,'/','HitCheck'],... 

'Mask  Display’,' AC  position  (x,y,z)  \n\nMissile  position  (x,y,z)') 


%  Finished  composite  block  'HitCheck'. 

set_param([sys.'/', 'HitCheck'],... 

'position',[935,2, 1075,53]) 

add_bIock('built-in/Constant',[sys,’/','Effective  radius  of  expendable']) 
set_param([sys,'/', 'Effective  radius  of  expendable’],... 
'Value','expeff_radius’,... 

'position’,[  1 3 10,250, 1 390,270]) 

add_block(’built-in/To  Workspace’, [sys,'/','PK']) 
set_param([sys,'/’,'PK'],... 

'mat-name','PK',... 

'buffer',' lOOOOOOOOO',... 

'position',[  1805,2 15, 1855,235]) 


%  Subsystem  'Expendable'. 
new_system([sys,'/','Expendable']) 

set_param([sys,'/','Expendable'],'Location',[7 1 ,369, 1085,864]) 

add_block('built-in/Inport',[sys,'/',['Expendable/Missile  position',  13,'(x,y,z)’]]) 
set_param([sys,'/',['Expendable/Missile  position',  13,’(x,y,z)']],... 

'position', [300,475,320,495]) 
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add_bIock(’built-in/Inport',[sys,7,[’Expendable/effective  radiusM3/of  expendable’]]) 
set_param([sys,7\['ExpendabIe/effective  radius\  1 3, ’of  expendable’]],... 

Tort’;5’,... 

’position',[760,420,780,440]) 

add_b]ock('buiIt-in/Product',(sys,'/’,'Expendable/Product23']) 

set_param([sys//’,’ExpendabIe/Product23’],... 

’position’,[720, 675,745,695]) 

add_block(’built-in/Product’,(sys,'/’,'ExpendabIe/Product25’]) 

set_param([sys,'/’,'Expendable/Product25’],... 

’position’, [725,580, 750,600]) 

add_bIock('buiIt“in/Constant',[sys,’/','Expendable/Expendable  type']) 
set_param([sys,7’,’ExpendabIe/Expendable  type’],... 

'Value',’exp_type’,... 

’position’, [860,434, 945 ,456]) 

add_bIock(’buiit“in/Demux',[sys,7’,'Expendable/Demux5']) 

set__param([sys,'/*,'Expendable/Demux5'],... 

*outputs’,’3',... 

’position’, [390,467,430, 503]) 

add_bIock('buiIt-in/Product’,[sys,'/',’ExpendabIe/Product24']) 

set_param([sys,’/’,'Expendable/Product24'],... 

'position’,[685,630,7 10,650]) 

add__bIock('built-in/Sum',[sys,’/',’Expendable/Sum  1 8’]) 
set_param([sys,*/',’Expendable/SumI8'].... 

’inputs’,’+++',... 

’position', [860,622,880,658]) 

add_block('built-in/Fcn',[sys,7',’Expendable/Fcnl4']) 

set„param([sys,'/',’ExpendabIe/Fcnl4’j,... 

’Expr',’sqrt(u[l])’,... 

’position’, [895,629,980,65 1  ]) 

add_block(’buiIt-in/Sum',[sys,'/',’Expendable/Suml6']) 
set_param([sys,'/’,’Expendable/Sum  1 6’],... 

’inputs', 

’position’, [540,480,560,500]) 

add_block('built-in/Sum’,[sys,'/’,'Expendable/Suml5']) 
set_param([sys,’/', 'Expendable/Sum  15’],... 

’inputs’,*+-’,... 

’position’,[575,435, 595,455]) 

add_block(’built-in/Sum',[sys,'/’, 'Expendable/Sum  17']) 
set_param([sys,'/’,’Expendable/Sum  IT],... 

’inputs','+-’,... 

’position’, [500,525, 520, 545]) 

add_block('buiIt-in/Memory’,[sys,'/',['Expendable/Memory',  1 3,’IC:  0']]) 
set_param([sys,'/’, ['Expendable/Memory', 1 3,'IC:  0']],... 

'position', [1020,665,1060,695]) 
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add_block('built-in/Mux*,[sys,7‘/Expenclable/Mux  1 1’]) 
set_param([sys,T,'ExpendabIe/Mux  1 T],... 

'inputs'/6\... 

'position’,[  1050,372, 1085,473]) 

add_biock('buiIt-in/Memory‘,[sys,7,[*Expendable/Memoryl',13,’IC:  0’]]) 
set_param([sys,7',['ExpendabIe/Memory  r,13,’IC:  0’]],... 

’position’,[880, 325,920, 355]) 

add_block(’built-in/Demux’,[sys,7','ExpendabIe/Demux4’]) 

set_param([sys,7’,’Expendable/Demux4’],... 

'outputs',’2',... 

'position',  [  1200,405, 1 240,440]) 

add_block(’buiIt“in/MATLAB  Fcn’,[sys,7','ExpendabIe/mexphit.m']) 
set_param([sys,’/’,'ExpendabIe/mexphit,m'],... 

'MATLAB  Fcn’,'mexphit’,... 

'Output  Width',*2',... 

'position’,[l  120,410,1 170,440]) 

add_block('buiIt-in/Demux',[sys,7,’Expendable/Demux3']) 

set_param([sys,7','Expendable/Demux3'],... 

'outputs', ’9’) 

set_param([sys,7,'Expendabie/Demux3’],... 

'Mask  Display',’  xexp\n  xvexp\n  yexp\n 

zexpVn  vzexpVn  x  pos  noise\n  y  pos  noise\n  z  pos  noise') 
set_param([sys,7,’Expendable/Demux3’],... 

'position’,[  185, 1 38,280,242]) 

add_block('built-in/Inport',[sys,7',[’Expendable/operationaI’,  I3,'flag’,13,"]]) 
set_param([sys,'/’,['Expendable/operationaI',I3,’f]ag',13,”]],... 

'Port', '6',... 

'position’,[550, 60, 570,80]) 

add_biock('buiIt-in/Outport',[sys,7,’Expendable/exp  pos  ini*]) 
set_param([sys,’/','Expendable/exp  pos  ini’],... 

'Port’,'2',... 

’position’, [540, 290,560,3 10]) 

add_bIock(’built-in/Outport’,[sys,7,'ExpendabIe/exp  pos  in2']) 
set_param([sys,’/’,'ExpendabIe/exp  pos  in2'],... 

'orientation*, 2,... 

'Port*,'3*,... 

’position’,[390, 330,4 10,350]) 

add_block('built-in/Outport',[sys,’/*,’Expendable/exp  pos  in3’]) 
set_param([sys,'/',’Expendable/exp  pos  in3’],... 

'orientation',2,... 

'Port','4’,... 

'position’,[395, 380,415, 400]) 

add_block(’built-in/Outport’,[sys,'/’,’Expendable/STOP  Flag’]) 
set_param([sys,’/','Expendable/STOP  Flag'],... 

'Port’,’6',... 


vyexp\nexp  pos 
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'position\[  1295,450, 13 15,470]) 


add_bIoclc('built-in/Outport',[sys,T,’Expendable/PK’]) 

set_param([sys,7’,'Expendable/PK‘],... 

'Port\*5’,... 

•position', [  1 300,405, 1 320,425]) 

add_block('built-in/Outport',[sys,V’,'Expendable/mexslantrange']) 

set_param([sys,7','Expendable/mexslantrange'],... 

'Port',’7',... 

•position’, [1095,630,1 1 15,650]) 

add_block(’built-in/Mux’,[sys,'/','Expendable/Muxl5']) 

set_parani([sys,’/',’ExpendabIe/Muxl5’],... 

*inputs',*6'„.. 

•position',[370,64,405,136]) 

add_bIock(’built-in/Outport\[sys,7’,[’ExpendabIe/exp  pos',  1 3,'(x,vx,y, vy,2,vz)']]) 
set_param([sys,'/’,['Expendabie/exp  pos’,13,’(x,vx,y,vy,z,vz)']],.., 

’Port','8’,... 

•position’, [450,90,470,1 10]) 

add_block('built-in/Constant’,[sys,7','ExpendabIe/Duration  of  wash  noise']) 
set_param([sys,'/‘,'Expendable/Duration  of  wash  noise’],... 
’VaIue’,'washnoiseduration',... 

’position’,[7 10,294,830,3 16]) 

add_block('built-in/Memory‘,[sys, T, [’Expendable/Memory 2’,  13, ’IC:  [0  0  0]']]) 
set_param([sys,'/’,['Expendable/Memory2',13,’IC:  [0  0  0]’]],... 

’x0','[0  0  0]',... 

’position’,[700, 150,740, 1 80]) 

add_block(*buiIt-in/Inport’,[sys,'/’,‘ExpendabIe/time’]) 

set_param([sys,'/’,’Expendable/time'],... 

•Port’, '4',... 

’position’.[720, 110,740,130]) 

add_blockCbuiIt-in/Inport',[sys,'/’,[’Expendable/launch',13,’flag']]) 
set_parani([sys,'/’, [’Expendable/launch’,  13, ’flag’]],... 

'Port’,’2’,... 

’position’, [645,80, 665, 100]) 

add__block(’buiIt-in/Mux*,[sys,'/’,’ExpendabIe/Muxl4']) 
set_param([sys,’/’, ’Expendable/Mux  14’],... 

’inputs','6',... 

•position’, [915, 64, 950, 101)) 

add__block('built-in/Outport’,[sys,7’,'Expendable/exp  pos  in’]) 
set_param([sys,’/','ExpendabIe/exp  pos  in'],... 

•position’,[  1005,75, 1025,95]) 

add_blockCbuilt-in/Constant’,[sys,’/','Expendable/standard  dev  of  wash  noise']) 
set_param([sys,’/’,’ExpendabIe/standard  dev  of  wash  noise'],... 
'Value’,'washnoisestd’,... 

'position’,[685,2 15,765,235]) 
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add_bl<^ck('built-in/Inport',[sys,’/’,'Expendable/exp  pos  out']) 
set_param([sys,'/','Expendable/exp  pos  out'],... 

'Port'.'S',... 

'position',[120, 180, 140,200]) 

add_block('built-in/Mux’,[sys.'/','Expendable/Muxl6']) 
set_param([sys,'/','Expendable/Mux  1 6'],... 

'inputs','3',... 

'position',[350,20 1,385,239]) 

add_block('built-in/Note',[sys,'/','Expendable/BLOCK:  Expendable']) 
set_param([sys,'/','Expendable/BLOCK:  Expendable'],... 

'position', [290,645,295.650]) 
add_line([sys,’/','ExpendabIe'],[575,70;910,70]) 
addJine([sys,'/','Expendable'],[745,120;745.80;910,80]) 
addJine([sys,'/'.'ExpendabIe'],[745,165;770.1 65:770,85  ;9 10,85]) 
addJine([sys.’/',’E.xpendabIe'],[750,685;785.685;785,650;855,650]) 
addJine([sys,'/','Expendable'],[755,590;770.590;770,630;855,630]) 
addJine([sys,'/','Expendab!e'].[985,640;995.640;995,415;1045,415]) 
addJine([sys.'/’,'Expendable'], [435,485:535.485]) 
addJine([sys,'A'Expendable'].[l  175,425:1 195,425]) 
addJine([sys,'/'.'Expendable'],[  1090,425: 1 1 1 5,425]) 
add_line([sys,'/','Expendable'],[950,445: 1045 ,445]) 
add_line([sys,'/', 'Expendable'], [885,640:890,640]) 
addJine([sys,'/','Expendable'],[7 15,640:855,640]) 
addJine([sys.'/','Expendable'],[600,445:697,445:697,585:720,585]) 
addJine([sys,'/','Expendable'],[600,445:697, 445:697, 595:720,595]) 
add_line([sys.'/','Expendable'],[565,490:647,490:647, 645:680,645]) 
addJine([sys,'/','Expendable'].[565,490:647,490:647,635:680,635]) 
addJine([sys.'/','Expendable'], [525 ,535:612,535:612, 680:715,680]) 
add_line([sys,'/','Expendable'],(525,535:6l2.535:6 12,690:7 15,690]) 
add_line([sys,'/','Expendable'],[325,485:385,485]) 
addJine([sys,'/','Expendable'],[785,430:1045,430]) 

add_line([sys,'/','Expendable'].[1065,680:1252,680:1252,605;1032,605:1032,460:1045,460]) 

add_line([sys,'/','Expendable'],[435,495:457,495:457,530:495,530]) 

add_line([sys,'/','Expendable'],[435,475:492,475:492,440:570,440]) 

add_line([sys,'/','Expendable'],[985,640:995,640:995,680;1015,680]) 

addJine([sys.'/','Expendable'],[285, 150:505, 150:505,450:570.450]) 

addJine([sys,'/','Expendable'],[285, 170:477,170:477,495:535, 495]) 

addJine([sys,'/','Expendable'].[285, 1 90:447, 1 90:447,540:495,540]) 

addJine([sys,'/','Expendable'], [670, 90:717, 90:717,75:910,75]) 

add_line([sys,'/','Expendable'],[610,70:610.400:1045,400]) 

addJine([sys,'/','Expendable'].[842,400:842,340:875,340]) 

addJine([sys,'/','Expendable'], [925,340:982,340:982,385:1045, 385]) 

addJine([sys,'A,'Expendable’],[955, 85:1000,85]) 

add_line([sys,’/', 'Expendable'], [  145,190;!  80, 1 90]) 

addJine([sys,'/','Expendable'],[  1245,415:1295,4 15]) 

addJine([sys,'/','Expendable'].[  1245,430;  1270,430;  1270,460;  1 290.460]) 

addJine([sys,’/','Expendable'],[505.300;535,300]) 

add_line([sys,'/','Expendable'],[447,390;420,390]) 

addJine([sys,'/','Expendable'],[477.340;415,340]) 

addJine([sys,'/','Expendable'].[995,640;1090,640]) 

addJine([sys,'/','Expendable'],[4 10, 100:445, 100]) 

addJine([sys,'/','Expendable'],[285,150;305,150;305,75;365.75]) 
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addjine([sys,7', 'Expendable'], [285, 160;3 10, 160;3 10,85:365.85]) 
add_line([sys,'/','Expendable'],[320, 170:320,95  ;365,95]) 
addJine([sys,'/','Expendable'],[285, 180:325, 1 80:325, 105:365, 105]) 
add_line([sys,'/','Expendable'],[330, 190:330,1 15:365,1 15]) 
addJine([sys.'/','Expendable'].[835,305:885,305:885,95:910.95]) 
addJine([sys,’/','Expendable'],[285,2 1 0:345.2 10]) 
addJine([sys.'/','Expendable'].[285,220:345,220]) 
addJine([sys,'/','Expendable'],[285,230:345,230]) 
add  Jine([sys,'/','Expendable'],[390,220:560,220:560, 1 65:695, 165]) 
addJine([sys.'/','Expendable'],[770,225:780.225:780, 1 80:875, 1 80:875,90:9 10,90]) 
addJine([sys,'/'.'Expendable'],[285,200:335,200:335,125:365,125]) 
set_param([sys,'/','Expendable'],... 

'Mask  Display’.'Missile  exppos  in\npos  (x,y,z)  \n  Exp  X  pos\n 

Launch  Flag  \n  Exp  Y  pos\nexp  pos  \n  out  Exp  Z  pos\n\nTime 

PK\n  Stop  flag\nEffective  \nradius  tnexslantrange\n\nOperational  \nflag 

Exp  pos  (x,y,2)') 


%  Finished  composite  block  'Expendable'. 

set_param([sys,'/', 'Expendable'],... 

'position',1 1500, 1 26, 1635,304]) 
addjine(sys.[365,400:325,400:325,205:375,205]) 
addjine(sys,[535,230:575,230:575,80:615,80]) 
addjine(sys,[85,4 1 0: 1 50,4 1 0]) 
add_line(sys,[  1060,605: 1 1 85,605]) 
addjine(sys,[990,720:l  155,720:1 155,665:1 185,665]) 
addjine(sys,[  1 360,565: 1 390,565: 1 390.405: 1 370,405]) 
addjine(sys,[795, 530:890,530:890,575:925,575]) 
addjine(sys,[85,410:l  15,410:1 15,300:1 125.300:1 125,585:1 185,585]) 
addjine(sys,[795, 530:846,530:846,705:880,705]) 
addjine(sys,[800,2 15:870,2 15:870,605:925,605]) 
addjine(sys,[285, 190:375, 190]) 
addjine(sys,[535,200:545,200:545,65:615,65]) 
addjine(sys,[85,4 1 0: 1 1 5,4 1 0: 1 1 5, 1 80: 1 45, 1 80]) 
addjine(sys,[285,165:l  105,165:1 105,645:1 185,645]) 
addjine(sys,[795,5 10:825,5 10:825,730:880,730]) 
addjine(sys.[795,550:810,550:810,635:925,635]) 
addjine(sys,(285, 190:300, 190:300,50:535,50:535, 15:930, 15]) 
addjine(sys,[846,530:890,530:890, 490:945,490]) 
add_line(sys,[  1 045,5 10: 1 080,5 1 0: 1 080,565: 1 1 85,565]) 
addjine(sys,[1045,465:1090.465:1090.545:l  185,545]) 
add_line(sys,[1360,645:1645,645]) 
addjine(sys,[l  15,235:375,235]) 
addjine(sys,[300,190:300,545:620,545]) 
addjine(sys,[535,50:615,50]) 

addjine(sys,[775,65:800,65:800,130:355,130:355,220:375,220]) 
add_line(sys,[635,165:635,200:655,200]) 
addjine(sys.[605, 130:605,400:5 10,400]) 
addjine(sys,[605,230:655,230]) 
addjine(sys.[605, 400:605,450:605 ,5 15:620,5 15]) 
addjine(sys,[555,545:555,670:l  140,670:1 140,625:1 185,625]) 
add_line(sys,[800,65:800, 40:930,40]) 
addjine(sys.[  1 390,565: 1505,565]) 

addjine(sys,[l  175,585:1 125,585:1 125,510:1445,510:1445,385:1370.385]) 
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addjine(sys,[1540,65;1470,65;1470,200;1495,200]) 
addjine(sys,[  1 640, 145;  1 640,65;  1 600,65]) 
addjine(sys,[1360,645;1435,645;l435,170;1495,170]) 
addjine(sys,[  1 385,385;  1445,385;  1445,230;  1495,230]) 
add_Iine(sys,[  1 395,260;  1 495,260]) 
addjine(sys,[  1 640, 165;  1 655, 1 65;  1 655, 120;  1 800, 1 20]) 
addjine(sys,[  1 640, 1 85;  1 665, 1 85;  1 665, 150;  1 740, 150]) 
add  Jine(sys,[  1640,205;  1 720,205;  1 720, 1 80;  1 805, 1 80]) 
add_line(sys,[1640,225;  1 800,225]) 
addjine(sys,[1640,245;1690,245;1690,265;1755,265]) 
addjine(sys,[1640,265;1670,265;1670,355;1720.355]) 
addjine(sys,[  1 640,285;  1660,285;  1 660,425;  1 370,425]) 
addjine(sys,[775,65;800,65  ;800, 130;  1485, 1 30;  1495, 1 40]) 
addjine(sys,  [  1 220,405 ;  1 2 1 0,405 ;  1 2 1 0,290;  1 495,290] ) 

drawnow 

%  Return  any  arguments, 
if  (nargin  I  nargout) 

%  Must  use  feval  here  to  access  system  in  memory 
if  (nargin  >  3) 

if  (flag  ==  0) 

eval(['[ret,xO,str,ts,xts]=',sys,'(t,x,u,flag);’]) 

else 

eval([’ret  =’,  sys,’(t,x,u,flag);']) 
end 

else 

[ret,xO,str,ts,xts]  =  feval(sys); 
end 

else 

drawnow  %  Flash  up  the  model  and  execute  load  callback 
end 
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function  h=acmang!e(u) 


^  :fc ****  *****  ^ic  ?(( 3tt  9k  *  3k 


%  file:  acmangle.m 

%  Used  in  BLOCK:Relative_amgIes_and_range 


%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%  Last  Updated:  3 1  Oct  95 
% 

%  Function:  Given  the  Cartesian  location  of  an  aircraft  and  a  missile, 

%  output  the  relative  phi  (elevation)  theta  (azimuth)  and  slantrange 
%  from  the  view  of  the  view  of  the  aircraft  with  0  being  above  and 
%  forward,  respectively. 


He*  ****************************************  ********* 


%ul=x  position  of  missile 
%u2=y  position  of  missile 
%u3=z  position  of  missile 
%u4=x  position  of  A/C 
%u5=y  position  of  A/C 
%u6=z  position  of  A/C 

deitaxprior=u(  1  )"U(4); 
deltayprior=u(2)-u(5); 
deltazprior=u(3)-u(6); 

resultxy=sqrt((deltaxprior*deltaxprior)+(deltayprior*deltayprior)); 

thetaprior=atan2(deltayprior,deltaxprior); 

phiprior=atan2(resultxy,deltazprior); 

resuItxyz=sqrt(deltaxprior*deltaxprior+deltayprior*deItayprior+,.. 

deItazprior*deItazprior); 

h=[phiprior;thetaprior;resultxyz]; 
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function  h=division(u) 


^  ^  ifc  :|c  9|(  ;4(:tc ^  ^  ^  9k  :4c :(( ;(c  3(c  :(( Jfclctc  )|(  9|<  ^  3((  *  )k  *  :4c  :|t  :(c 


%  division.m 

%  Used  in  BLOCK:Fire_Timing 
% 


%  Authors:  Capt,  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%Last  Updated:  31  OCT  95 


%  Function:  This  function  divides  two  inputs,  u(l)  &  u(2).  This  is 
%  used  for  calclating  the  expected  time  for  the  missile  to  intercet 
%  the  aircraft.  If  the  miissile  velocity  =0,  the  expected  time  is 
%  set  to  1000; 

<^*:k9k9k**5k3l<5k**5k5k5k**5kH«*3k*5k*9k5|cH«5kJk9k***9ksk3k***9f‘5k*9k9k9k9ksk5k3k**ik5k**9k 


%u(  l)=missile  distance 
%u(2)=missile  velocity 


denom=u(2); 

ifu(2)=:=0 

denom=l-e3; 

end 

x=abs(u(  1  )/denom); 
if  isnan(x)==l  1  isinf(x)==l 
h=1000; 
else 
h=x; 
end 
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function  h=divplus(u) 


^  }{c ^  )|C  9(C  )|e  *  3k  :(( *  )|e « ^  )|C  :(e  )|C  ♦  ♦  *  3(c ^  9K  He  9||  *  ♦  *  *  *  ’K  ^  ^  *  9k 


%  divplus.m 

%  Used  in  BLOCK:Quad_data,  Missilexyz 
% 


%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%  Last  Updated:  31  OCT  95 


%  Function:  This  function  divides  two  inputs,  u(l)  &  u(2).  If  the  result  is 
%  infinity  or  NaN  (Not  a  number),  zero  is  returned. 

Ht  He  3k  H(  3k  *  3k  He  He  He  3k  He  He  H(  He  H*  3k  He  3k  3k  He  Ht  H(  3k  He  *  H<  He  H(  3k  3k  He  He  *  H(  3k  H(  H(  3k  H<  3k  H(  He  3k  H<  3k  3k  He  He  *  3k  3k  H<  3k  He  He  He  He  He 


x=u(l)/u(2); 

if  isnan(x)==l  I  isinf(x)==l 
h=0; 
else 
h=x; 
end 


S 
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function  r=exppos(u) 


^  ]fc  ifc  )lc  ***  )(c  **  9k  3|(  9fe  H(  **  *  it  ifc  9(c  9|c  9tc  9fe  3(c  jK  ♦  ik 


%  exppos.m 

%  Used  in  BLOCK:Expendable 
% 

%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%  Last  Updated:  14  SEP  95 


%  Function:  This  function  return  the  position  and  velocity  of  the 
%  expendable  during  the  time  between  launch  and  when  it  goes 
%  operational  (if  statement  #1)  and  during  the  time  it  is 

%  operational  (if  statement  #2).  It  does  so  by  interpolating 

%  from  the  global  look-up  tables  (exppvy  and  exppvyopr) 

%  generated  in  InchtraJ.m  and  gtoptraj.m 


*  H<  *  *  *  ♦  *  5k  *  *  *  *  *  *  3k  3k  *  *  ♦  2k  9k  5k  ★  *  *  5k  *  *  *  5k  9k  *  *  5k  3k  9k  5k  5k  9k  9k  *  *  ★  sk  5k  3k  ik  sk  3k  *  9|e  j^e  * 


%used  in  BLOCK:  Expendable 

%ul=:operational  flag  (-1  before  operational 
%  I  while  operational 

%  '  100  afterwards) 

%u2=launch  flag  -1  before  launch  I  after 
%u3=time 

%u4-6=  last  position  change  due  to  wash  noise  (x,y,z) 
%u7-9=noise  wash  standard  deviation; 

%ul0=wash  noise  duration 

global  exppvxopr  exppvyopr  exppvzopr 

global  exppvx  exppvy  exppvz  Inchtime 

r=[00  0  0  0000  0]; 


time=u(3); 


if  ((time>=lnchtime)  &  (time<=:(lnchtime+u(10)))) 
noiseadd=[u(7)*randn  u(8)*randn  u(9)*randn]; 
else 

noiseadd=[0  0  0]; 
end; 

r(7)=u(4)+noiseadd(  1 ); 
r(8)=u(5)+noiseadd(2); 
r(9)=u(6)+noiseadd(3); 

if  (u(l)<0)&  (u(2)>0)  ^between  launch  and  when  it  goes  operational 
r(  1  )=interp  1  (exppvx(  1  ,:),exppvx(2,:),time)+r(7); 
r(2)=interpl(exppvx(l,:),exppvx(3,:),time); 
r(3)=interpl(exppvy(l,:),exppvy(2,:),time)+r(8); 
r(4)=interp  I  (exppvy(  1  ,:),exppvy(3,:),time); 
r(5)=interpl(exppvz(l,:),exppvz(2,:),time)+r(9); 
r(6)=interpl(exppvz(l,:),exppvz(3,:),time); 
elseif  (u(l)>0)&  (u(2)>0)  %  for  duration  of  when  it  is  operational 
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r(l)=:interpl(exppvxopr(l,:),exppvxopr(2,:),time); 
r(2)=interpl(exppvxopr(l,;),exppvxopr(3,:),time); 
r(3)=interpl(exppvyopr(U:),exppvyopr(2,:),tinne); 
r(4)=i  nterp  1  (expp  vy  opr(  1 , :  ),expp  vy  opr(3 , :  ),ti  me) ; 
r(5)=inteq)l(exppvzopr(l,:),exppvzopr(2,:),time); 
r(6)=inteq3l(exppvzopr(l,:),exppvzopr(3,:)4ime); 
end; 


i 
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function  r=lnchtraj(u) 

^  ^  )t(  )tc  :|e  :4c  ♦♦  He  9fe  * 

%  launchtraj.m 
%  Used  in  BLOCKrLaunch 


% 

%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 

%  Last  Updated:  14  SEP  95 
% 

%  Function:  This  function  calculates  the  trajectory  and  velocity  of  the 
%  expendable  when  it  is  launched  and  is  still  in  the  launch  canister. 

%  Once  the  global  time  reaches 

%  the  launch  time,  the  position  and  velocity  of  the  aircraft 

%  are  used  to  calculate  the  trajectory  for  the  expendable  using  the 

%  expendable  characteristics.  This  is  done  using  ODE23  in  the  simulation 
%  so  again,  a  global  variable  (onceitl)  is  used  to  prevent  the  calculation 

%  from  happening  twice.  The  results  are  stored  in  global  variables 
%  exppvx,exppvy,exppvz.  No  noise  is  entered  into  the 
%  expendable  trajectory  in  this  function.  A  flag  is  set  for  each 

%  expendable  from  - 1  to  1  when  the  expendable  is  launched. 

% 

}|e  :4c  :4c  ^  *  )ic  :4e  *  :}e  ije  9^ ’K ’ft  :<(****  **  9k  ate  ***  ^  ^  :4(:4c  :4(  :|c  :4c  :|c  »|c 

global  Inchtime; 

%ul=time; 

%u2=distance  check  between  missile  and  AC 

%u3=xac 

%u4=yac 

%u5=zac 

%u6=xvac 

%u7=yvac 

%u8=PhLAngle 

%u9=Theta_Angle 

%u  1  O=time_to_target 

%ul  l=acmtheta 

%ul2=acmphi 

%ul3=Quadrant  launch 

%u  I4=tracker 

%ul5=Tduration 

%ul6=R_Thrust 

%ul7=lethaldist 

%ul8=muzzle_vel 

%u  1 9=operational  time  feedback 

%u20=flag  feedback 

%u2l=launchtime  feedback 

%u22=detecttime 

%u23=computation  and  slew  delays 

%rl=oper_time 

%r2=flag 

%r3;=launchtime; 

global  exppvx  exppvy  exppvz 
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global  onceitl; 

xacl=u(3); 

yacl=u(4); 

zacl=u(5); 

zvacl=u(6); 

xvacl=u(7); 

PhLAngle=u(8)/57.3; 

Theta_Angle=u(9)/57.3; 
time_to_target=u(  10); 
thetamissile_atjaunch=u(l  1); 
phimissile_at Jaunch=u(  1 2); 
tracker=u(14); 

Tduration=u(15); 

R_Thrust=u(16); 

lethaldist=u(17); 

muzzle_vel=u(18); 

detect_time=u(22); 

delays=u(23); 

launch_time=.00 1  *(round(u(  1  )/.00 1 )); 

r(l)=u(19); 

r(2)=u(20); 

r(3)=u(21); 

if  (( ((u(2)==0)&(tracker==l))  I  ((u(13)>=Iaunch_time)&(tracker==0)) )  &  (u(20)==- 

1  )&(launch_time>=(detect_time+delays)))  &(onceitl==  1 ) 

r(2)=l; 

r(3)=launch_time; 

.  lnchtime=launch_time; 
if  tracker==l 

%Add  time  required  for  expendable  to  get  from  launcher  to  target  to  the  global 
%time  at  which  launch  occurs  in  order  to  get  time  at  which  expendable  is  operational 
opertime=time_to_target+launch_time; 

else 

%  only  have  quadrant  detection 

if  (thetamissile_atJaunch>=0)  &  (thetamissile_at_launch<  (90/57.3)) 
opertime=launch_time+,  144; 
else 

opertime=launch_time+.  143; 
end 

end; 

r(  1  )=.00 1  *round(opertime/.001 ); 
end; 


if  (( ((u(2)==0)&(tracker==l))  I  ((u(13)>=launch_time)&(tracker^=0)) )  &  (u(20)~- 
1  )&(launch_time>=(detect_time+delays)))  &(onceitl“0) 

onceitl=l; 

launch_time 

%Calculate  Launch  Angle  if  there  is  a  tracker  on-board  the  A/C 
iftracker==l 


140 


%Add  time  required  for  expendable  to  get  from  launcher  to  target  to  the  global 
%time  at  which  launch  occurs  in  order  to  get  time  at  which  expendable  is  operational 
opertime=time_to_target+Iaunch_time; 

%Calculate  coordinates  in  space  you  wish  to  hit 

x_wish_hit=xacl+lethaIdist*sin(phimissile_atJaunch)*cos(thetamissiIe_atJaunch); 

y_wish_hit=yacl+lethaldist*sin(phimissile_at_launch)*sin(thetamissile_atjaunch); 

z_wish_hit=zacl+lethaldist*cos(phimissile_at_launch); 

else 

%  only  have  quadrant  detection 

if  (thetamissile_at_launch>=0)  &  (thetamissile_atjaunch<  (90/57.3)) 

PhLAngIe=(93. 12/57.3); 

Theta^Angle=(45/57,3); 
opertime=Iaunch_time+.  144; 
else 

PhLAngIe=(93. 12/57.3); 

Theta_.Angle=(  135/57.3); 
opertime=launch_time+.  143; 
end 

end 

^Determine  A/C  position  at  which  expendable  detection  occurs 

launchx=xacl; 
launchy=yacl ; 
iaunchz=zaci; 

%Determine  A/C  velocity  at  which  expendable  launch  occurs 

launchvx=xvacl ; 
launchvz=zvacl; 

%Determine  postion  and  velocity  of  expendable  from  time  of 
%launch  to  some  future  time.  Said  future  time  should  be 
%after  the  expected  time  of  missile  intercept  by  expendable 
%or  missile  intercept  of  aircraft. 


%Determine  X  position  of  expendable 
%Expendable  under  thrust 
if  Tduration~=0  &  R_Thrust-=0; 

[txyzT,pvxyzT]=ode23(’dqxyzt',launch_time-.00l,launch_time-.001+Tduration,[launchx  launchvx  launchy  . 
0  launchz  launchvz]); 

sizepvxyzT=size(pvxyzT); 

lastxT=pvxyzT(sizepvxyzT(  1 ),  1 ); 
lastvxT=pvxyzT(sizepvxyzT(  1  ),2); 

IastyT=p  vxyzT(sizepvxyzT(  1  ),3); 
lastvyT=pvxyzT(sizepvxyzT(  1  ),4); 
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lastzT=pvxyzT(sizepvxyzT(  I  ),5); 
lastvzT=pvxyzT(sizepvxyzT(  I  ).6); 

lasttxyzT=max(txyzT); 

%Determine  if  X,  Y,  or  Z  velocity  after  thrust  is  negative 
%lf  X,  Y,  or  Z  velocity  is  negative,  you  will  make  it  and 
%and  the  initial  position  of  the  nonthrust  phase  positive. 

%If  X,  Y,  or  Z  velocity  is  positive  already,  this  will  simply 

%multiply  the  initial  position  and  velocity  of  the 

%nonthrust  phase  by  1 . 

posnegx=sign(lastvxT); 

iastxT=IastxT.  *posnegx; 

lastvxT=lastvxT.  *  posnegx ; 

posnegy=sign(lastvyT); 

lastyT=lastyT.*posnegy; 

IastvyT=lastvyT.*posnegy ; 

posnegz=sign(lastvzT); 

lastzT=IastzT.*posnegz: 

IastvzT=lastvzT,*posnegz; 

end; 

%Expendable  without  thrust 

%Define  variables  in  ODE23  integraton  step  below  if  there  is  no 
%thrust  on  expendable  after  it  is  launched, 
if  Tduration—O  I  R_Thrust==0; 

lasttxyzT=launch_time-.00 1 ; 
lastxT=launchx; 
lastyT=launchy; 
lastzT=launchz; 

lastvxT=launchvx+muzzle_vel*sin(PhLAngle)*cos(Theta_AngIe); 

IastvyT=muzzie_veI*sin(Phi_Angle)*sin(Theta_Angle); 

lastvzT=:launchvz+muzzle_vel*cos(PhLAngle); 

%Determine  if  X,Y,  or  Z  velocity  is  negative.  If  so,  make  it  and  the  initial 

%position  positive  to  afford  proper  integration. 

posnegx=sign(IastvxT); 

posnegy=sign(lastvyT); 

posnegz=sign(lastvzT); 

lastxT=lastxT.*posnegx; 

lastvxT=lastvxT.*posnegx; 

lastyT=  lastyT.  *posnegy ; 
lastvyT=:lastvyT.*posnegy; 

lastzT=lastzT.*posnegz; 

lastvzT=IastvzT.*posnegz; 

end; 

[txyzNT,pvxyzNT]=ode23(’dqxyzMasttxyzT,lasttxyzT+.2,[lastxT.lastvxT,lastyT,IastvyT,lastzT,lastvzT]); 
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%Multiply  position  and  velocity  after  thrust  by  posneg 
^correction  factor  above  to  return  position  and  velocity 
%in  the  nonthrust  phase  back  to  their  proper  direction. 
pvxyzNT(:,  1  )=:pvxyzNT(:,  1  ).*posnegx; 
pvxyzNT(:,2)=pvxyzNT(:,2).*posnegx; 

pvxyzNT(:,3)=pvxyzNT(:,3).*posnegy; 

pvxyzNT(:»4)=pvxyzNT(:,4).*posnegy; 

pvxyzNT(:,5)=pvxyzNT(:,5).*posnegz; 

pvxyzNT(:,6)=pvxyzNT(:,6).*posnegz; 

%If  Thrust  sphere  has  thrust,  Remove  repeated  data  from  txNT  and  pvxNT  data 
if  Tduration-'=0 1  R_Thrust"-=0; 
txyzNT(l)=[]; 
pvxyzNT(  !,:)=[]; 
end 

txyz=[txyzT;txyzNTI; 

pvxyz=[pvxyzT;pvxyzNT]; 

txyz=:txyz'; 

pvxyz=pvxyz'; 

exppvx=[txyz;pvxyz(  1 :2,:)] ; 
exppvy=:[txyz;pvxyz(3:4,:)]; 
exppvz=[txyz:pvxyz(5:6,:)]; 

% 


r(  1  )=round(opertime/.00 1  )*.00 1 ; 
end 
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function  xdot=dqxyz(t,x) 


%  file:  dqxyz.m 

%  Used  in  Inchtraj.m,  Inchtram.m  (ODE23) 


%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%Last  Updated:  31  OCT  95 
% 


%  Function:  This  function  develops  the  dynamic  equations  for  expendable 
%  position  and  velocity  in  the  all  directions  between  when 
%  it  is  launched  from  the  aircraft  and  when  it  goes  operational. 


^  5|c  **★*♦*****★★♦*★***★  :(c  :(t  *  sK  *  :|c  >|e  *  5|c  ***  ★ 


%x(l)=x  initial  position 
%x(2)=x  initial  velocity 
%x(3)=y  initial  position 
%x(4)=:y  initial  veloctiy 
%x(5)=z  initial  position 
%x(6)=z  initial  velocity 

global  CD_sphere  S_sphere  W_sphere  Rho^ambient 

xvel=x(2); 

yvel=x(4); 

zvel=x(6); 

xvelocity_direction=sign(x(2)); 

yvelocity_direction=sign(x(4)); 

zvelocity_direction=sign(x(6)); 

%Calculate  phi  and  theta  angles  of  sphere’s  velocity  vector 
thetavel=atan2(yvel,xvel); 
resultxyvel=(xvel'^2+yvel^2)'^.5; 
phivel=atan2(resultxyvel,zvel); 

^Calculate  reference  area  of  sphere  perpendicular  to  the  x,y,  &  z  directions 
Sx_sphere=S_sphere*sin(phivel)*cos(thetavel); 
Sy_sphere=S_sphere*sin(phiveI)*sin(thetaveI); 
Sz_sphere=S_sphere*cos(phivel); 

%CaIculate  constants  in  x,y,  &  z  differential  equations  below 
constx=(CD_sphere*,5*Rho_ambient*Sx_sphere)./(W_sphere/32.2); 
consty=(CD_sphere*.5*Rho_ambient*Sy_sphere)./(W_sphere/32.2); 
constz=(CD_sphere*.5*Rho_ambient*Sz_sphere)./(W_sphere/32.2); 

%Differential  equation  in  x  direction 
xdot(l)=xvel; 

xdot(2)=(-l)*xveiocity_direction*(constx.*xveI''2); 

%Differential  equation  in  y  direction 
xdot(3)=yvel; 
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xdot(4)=(-l)*yvelocity_direction*(consty.*yvel''2); 

%Differential  equation  in  z  direction 
xdot(5)=zvel; 

xdot(6)=(-l)*zve!ocity_direction*(constz.*zveI'^2)-32.2; 
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function  r=gtoptraj(u) 


%  gtoptraj.m 

%  Used  in  BLOCK:Go_operational 


%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%  Last  Updated:  14  SEP  95 


%  Function:  This  function  calculates  the  trajectory  and  velocity  of  the 
%  expendable  once  it  is  operational.  Once  the  global  time  reaches 
%  the  operational  time,  the  position  and  velocity  of  the  expendable 

%  are  used  to  calculate  the  trajectory  for  the  expendable  using  the  new 

%  expendable  characteristics.  This  is  done  using  ODE23  in  the  simulation 
%  so  again,  a  global  variable  (onceito)  is  used  to  prevent  the  calculation 
%  from  happening  twice.  The  results  are  stored  in  global  variables 

%  exppvxopr,exppvyopr,exppvzopr.  No  noise  is  entered  into  the  expendable 

%  trajectory  in  this  function. 

%  A  flag  is  set  from  -1  to  I  for  each  expendable  when  it  goes 
%  operational  and  from  I  to  100  when  it  is  no  longer  operational. 


<^*jje*^j(c:j«**J«e5K*Jk***5le**Ji<*5k*******5ksie******5!«**********J<<*  ******** 


%ul=time 

%u2=operational  time 
%u3=exp  X 
%u4=exp  vx 
%u5=exp  y 
%u6=exp  y  V 
%u7=exp  z 
%u8=exp  zv 
%  u9=opertime_duration 
%ul0=flag 

global  exppvxopr  exppvyopr  exppvzopr 
global  onceito 

opertime=u(2); 

oper_duration=u(9); 

timer^.OO  I  *round(u(  1  )/.00 1 ); 
r=u(10); 

if  timer==(.00l  *round((opertime+oper_duration)/.001)) 
r=100; 
end; 

if  {timer==opertime)  &  (onceito==l) 
r=l; 

end 
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if  (tinner==opertime)  &  (onceitO“0) 

onceito=  I ; 

timer 

operxexp=u(3); 

opervxexp=u(4); 

operyexp=u(5); 

opervyexp=u(6); 

operzexp=u(7); 

opervzexp=u(8); 


%Determine  x,  y,  &  z  position  and  velocity  of  expendable  after  it  is  operational 

%Determine  if  x,  y,  or  z  velocity  after  expendable  is 
^operational  is  negative 

%If  x,y,  or  z  velocity  is  negative,  you  will  make  it 
%and  the  initial  position  positive. 

%If  X,  y,  or  z  velocity  is  already  positive,  this  will  simply 
%multiply  the  initial  position  and  velocity  of  the  by  1 
posnegxopr=sign(opervxexp); 
operxexp=operxexp.*posnegxopr; 
opervxexp=opervxexp.*posnegxopr; 

posnegyopr=sign(opervyexp); 

operyexp=:operyexp.*posnegyopr; 

opervyexp=opervyexp.*posnegyopr; 

posnegzopr=sign(opervzexp); 

operzexp=operzexp.*posnegzopr; 

opervzexp=opervzexp.*posnegzopr; 

[txy  z__opr,pvxyz_opr]=ode23(’dqxy  zopr',opertime-.00 1  ,opertime- 
.001+oper_duration,[operxexp,opervxexp,operyexp,opervyexp,operzexp,opervzexp]); 

%MuItiply  position  and  velocity  after  thrust  by  posneg 
%correction  factor  above  to  return  position  and  velocity 
%in  the  nonthrust  phase  back  to  their  proper  direction. 
pvxyz_opr(:,  1  )=pvxyz_opr(:,  1  ).*posnegxopr; 
p  vxy  z_opr( :  ,2)=p  vxy  z_opr( :  ,2).  *posnegxopr; 

pvxyz_opr(:,3)=pvxyz_opr(:,3).*posnegyopr; 

pvxyz_opr(:,4)=pvxyz_opr(:,4).*posnegyopr; 

pvxyz_opr(:,5)=pvxyz_opr(:,5).*posnegzopr; 

pvxyz_opr(:,6)=pvxyz_opr(:,6).*posnegzopr; 

%lf  integration  routine  is  unable  to  converge  resulting  in  the  attempted 
^integration  time  steps  taken  by  ode23  converging  to  the  same  value,  take  ail 
%of  the  data  after  the  time  at  which  ode23  can’t  converge  and  throw  it  out. 

%Any  values  matlab  needs  for  a  time  after  the  data  you  threw  out  will  be 
%Iinearly  extrapolated  using  the  last  two  good  data  points 
sizetxyz_opr=size(txyz_opr); 
xyz=l; 
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while  xyz<sizetxyz__opr(  M )- 1 ; 

if  abs(txyz_opr(xyz)-txyz_opr(xyz+l))<.00001 ; 
txyz_opr=txyz_opr(  1  :xyz); 
pvxy  z__opr=pvxyz_opr(  I  :xyz,:); 
xyz=sizetxyz_opr(  1,1); 
end 

xyz=xyz+l; 

end 

txy  z_opr=txy  z_opr’ ; 

pvxyz_opr=pvxyz_opr’; 

timesize=size(txyz_opr,2); 

txyz_opr(timesize+l)=txyz_opr(timesize)+25; 

pvxyz_opr(  l:6,timesize+l)=pvxyz_opr(l  :6,timesize); 

exppvxopr=[txyz_opr;pvxyz_opr(l  :2,;)]; 
exppvyopr=[txyz_opr;pvxyz_opr(3:4,:)]; 
exppvzopr=[txyz_opr;pvxyz_opr(5:6,:)]; 


end; 
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function  xdot=dqxyzopr(t,x) 


j|c « :|c  3(c  9|<  *  *  *  *  ]|e  ^  9i(:4(  )4(:(c9)c  9K  He  9te  3tt  *  ’(e  9k  ^  ^  ^  941  )K  iK  9f(  ^  *  ik 


%  file:  dqxyzopr.m 

%  Used  in  gtoptraj.m,  gtoptram.m  (ODE23) 


%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%  Last  Updated:  31  OCT  95 


%  Function:  This  function  develops  the  dynamic  equations  for  expendable 
%  position  and  velocity  in  the  all  directions  when  it  goes  operational. 


^  *  5k  *  5k  He  5k  5k  *  *  *  9k  *  5k  5k  5k  5k  9k  *  *  *  9k  5k  He  *  =k  5k  9k  *  He  *  5k  ♦  He  9k  *  *  5k  sk  9k  9k  5k  5k  *  9k  *  *  *  5k  *  9k  9k  9k  He  He 


%x(l)=x  initial  position 
%x(2)=x  initial  velocity 
%x(3)=y  initial  position 
%x(4)=y  initial  veloctiy 
%x(5)=z  initial  position 
%x(6)=z  initial  velocity 

global  CD_exp  S_exp  W_exp  Rho_ambient 

xvel=x(2); 

yvel=x(4); 

zvel=x(6); 

xvelocity_direction=sign(x(2)); 

yvelocity_direction=sign(x(4)); 

zvelocity_direction=sign(x(6)); 

%Calculate  phi  and  theta  angles  of  operational  expendable  velocity  vector 

thetavel=atan2(yvel,xvel); 

resultxyvel=sqrt(xvel*xvel+yvel*yvel); 

phivel=atan2(resultxyvel,zvel); 

%Calculate  reference  area  of  expendable  perpendicular  to  the  x,y,  &  z  directions 

Sx_exp=S_exp*sin(phivel)*cos(thetavel); 

Sy_exp=S_exp*sin(phivel)*sin(thetavel); 

Sz_exp=S_exp*cos(phivel); 

%Caiculate  constants  in  x,y,  &  z  differential  equations  below 
constx=(CD_exp*.5*Rho_ambient*Sx_exp),/(W_exp/32.2); 
consty=:(CD_exp*.5*Rho_ambient*Sy_exp)./(W_exp/32.2); 
constz=(CD_exp*.5*Rho_ambient*Sz_exp)./(W_exp/32,2); 

%DifferentiaI  equation  in  x  direction 
xdot(l)=xvel; 

xdot(2)=(- 1  )*xvelocity__direction*(constx.*xvel*xvel); 

%Differential  equation  in  y  direction 
xdot(3)=yvel; 
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xdot(4)=(- 1  )*y  velocity_direction*(consty  .*y  vel*y  vel); 

%Differential  equation  in  z  direction 
xdot(5)=zvel; 

xdot(6)=(- 1  )*zvelocity_direction*(constz.*zveI*zvel)-32.2; 
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function  h=:niexphit(u) 

^  :(c  :(c  3|t  9((  *  ^  **  ^  *********  **  9|(  **  )ic  *  3(t  :tc  :|c  ]|c  *  sK  ***  9lc  :fe 

%  mexphit.m 

%  Used  in  BLOCKs:ExpendabIe,  Expendable  1»  Expendable2, 

%  Expendables,  Expendable4,  Expendables, 

%  Expendable6,  Expendable? 

% 

%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 

%  Last  Updated:  14  SEP  95 
% 

%  Function:  This  function  is  used  to  determine  if  the  missile  hits 
%  and  operational  expendable.  It  uses  the  slant  range  between 

%  the  missile  and  the  expendable  in  comparison  with  the  effective 

%  radius  of  the  expendable.  If  the  slantrange  is  less  than  the 

%  radius,  it  is  considered  a  hit.  The  resultin  PK  (probability 

%  of  Kill)  is  determined  by  how  close  the  missile  is  to  the 

%  center  of  the  expendable.  A  PK  of .  1  indicates  the  missile 

%  hit  the  outer  edge  while  a  PK  of  1  indicates  the  missile  hit 

%  very  close  to  the  center. 

%  Since  3-D  slantrange  is  used,  it  is  theoretically  possible 
%  for  this  function  to  register  a  hit  when  the  missile  would 
%  not  hit  the  expendable  in  the  real  world.  In  one  time 
%  period,  the  slant  range  between  the  missile  and  the 

%  center  of  the  expendable  could  be  less  than  the  radius 

%  of  the  expendable  if  the  expendable  was  directly  in 
%  front  of  the  missile.  On  the  next  time  step,  however, 

%  if  the  expendable  was  falling  fast  enough,  it  could  be 

%  out  of  the  path  of  the  missile.  This  would  require 

%  that  the  expendable  was  falling  extremely  fast,  which 
%  is  not  the  case  with  any  of  the  expendables  used  in  this 
%  simulation.  Still,  this  must  be  kept  in  mind  when  developing 
%  other  expendables. 

%  The  simulation  will  end  if  the  slantrange  between  the  missile  and 
%  the  expendable  begins  to  increase  (the  PK  can  never  get  better) 

%  or  if  the  expendable  exceeds  its  operational  time  while  the  missile 
%  is  within  range  (again,  the  PK  will  not  get  any  better). 

%  This  must  be  kept  in  mind  when  analyzing  the  data  for 

%  simulations  with  multiple  expendables.  The  simulation  will  end 

%  when  it  achieves  the  highest  PK  it  can  for  the  first  expendable 
%  it  hits.  This  gives  a  deciveing  PK  since  the  missile  may  have  hit 

%  other  expendables  and  received  a  better  PK  had  the  simulation  been 

%  allowed  to  progress. 

^}|c*  ******************************************  ********* 

^Calculates  if  expendable  has  gotten  close  enough  to  the 
%missile  to  justify  a  successful  hit  of  the  missile 

%u(l)=flag  variable  delayed  one  time  step  (see  below) 

%u(2)=flag  variable  which  is  -1  before  the  expendable  is  operational 
%  1  while  it  is  operational  and  100  after  it  is  operational 
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%u(3)=slant  range  between  missile  and  expendable 
%u(4)=radius  from  center  of  expendable  in  which  expendable  is  effective 
%u(5)=expendable  type  (l=net,  baloon,  or  anything  that  has  a  definite 
%effective  area.  2=grenade,  "goop”,  or  anything  in  which  its 
%effectiveness  decreases  with  increase  in  radius  from  expendable) 

%  NOT  CURRENTLY  USED 

%u(6)=:Missile  expendable  slant  range  delayed  by  one  time  step  (.001  sec) 


^Initially  define  probability  of  kill  is  zero  and  the  kill  flag 

%to  stop  the  acme  simulation  should  allow  the  simulation  to  continue 

kili=0; 

PK=0; 

slantrange=u(3); 

slantrangelast=u(6); 

operflag=u(2); 

operflaglast=u(l); 

eff_radius=u(4); 


if  (operflag>0)  &  (operflag<99)  &  slantrange<=efOadius 

if  slantrange<=.  1  *eff_radius; 

PI^=l; 

elseif  slantrango.  1  *eff_radius  &  slantrange<=.2*eff_radius; 
PK=.9; 

elseif  slantrange>.2*eff_radius  &.slantrange<=.3*eff_radius; 
PK=,8; 

elseif  slantrange>.3*eff_radius  &  slantrange<=.4*eff_radius; 
PK=.7; 

elseif  slantrange>.4*eff_radius  &  slantrange<=.5*eff_radius; 
PK=:.6; 

elseif  slantrango .5  *eff_radius  &  slantrange<=.6*eff_radius; 
PK=.5; 

elseif  slantrango. 6 *eff_radi us  &  slantrange<=.7*eff_radius; 
PK=.4; 

elseif  slantrange>.7*eff_radius  &  slantrange<=.8*eff_radius; 
PK=.35; 

elseif  slantrange>.8*eff_radius  &  slantrange<=.9*eff_radius; 
PK=.3; 

elseif  slantrango.9*eff_radius  &  slantrange<=l*eff_radius; 

PK=.2; 

else 

PK=0; 

end; 


end 

^Determine  if  the  expendable  is  moving  away  from  the  missile 
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I 


if  (slantrange-slantrangelast>0)  &  (operflag>0)  &  (operflag<99)  &... 
((slantrange<=eff_radius)l(slantrangelast<=eff_radius)) 
ki!l=l; 

end 

if  (operflag>99)  &  (operfIaglast>l)  &  (operflaglast<99)  &  (slantrangelast<=eff_radius) 
kill=l: 
end; 


h=[PK  kill]; 
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function  h=misslego(u) 


%  File:  misslego.m 
%  Used  in  BLOCK:  MissIe_Control 


%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%  Last  Updated:  31  OCT  95 
% 


Function:  This  block  is  used  to  generated  the  missile  velocity  profile. 

The  velocity  profile  for  the  missile  was  derived  from  a  standard  thrust  profile  for  a  shoulder 
launched  missile:  rise  to  3600N  in  the  first  .6  seconds,  maintain  thrust  until  2  seconds  after  launch,  and 
fall  to  thrust  needed  to  maintain  constant  velocity  (lOOON)  until  8  seconds  after  launch. 

It  was  easiest  to  see  the  profile  by  typing  Tor  1=0:0. 1 :25 

p(I*10)=misslego([I  1]); 
end' 
plot(p)’ 

%  Once  the  time  is  greater  than  the  shottime,  the  profile  begins. 


% 


%u(l)=gIobal  time 
%u(2)=shot  time 
shottime=u(2); 
time=u(l); 


inflection  l=shottime+2;  %  in  the  velocity  profile,  this  is  the  time 
%  of  the  first  inflection  point 
leveloff=shottime+3;  %  time  when  velocity  levels  off 
endlevel=shottime+8;  %  time  when  thrust  ends 
inflection2=endlevel4-l;  %  final  inflection  point  in  velocity  profile 
max=l450;  %  Maximum  missile  speed  for  simulation 

nearzero=.0 1 ; 

falsemax=max/(  1 -nearzero/2); 
half=falsemax/2; 
inflect2mag=l200; 
decaytime=4; 

if  (time<shottime) 
h=0; 

elseif  (time>=shottime)  &  (time<inflectionl) 
h=(exp((time-shottime)*log(half+ 1  )/(inflection  1  -shottime)))- 1 ; 
elseif  (time>=infIection  1 )  &  (time<leveloff) 
h=half+half*(  1  -exp((time-inflection  1  )*(log(nearzero))/(leveloff-inflection  1 ))); 
elseif  (time>=leveloff)  &  (time<endlevel) 
h=max; 

elseif  (time>=endlevel)  &  (time<inflection2) 
h=max-(exp((time-endlevel)*log(max-inflect2mag+l)/(infIection2-endlevel))); 
elseif  (time>=inflection2) 

h=inflect2mag-inflect2mag*(l-exp((time-inflection2)*log(nearzero)/decaytime)); 

end; 
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function  r=reiativeangle(u) 

4^  stc  :(c  9k  *  *  )ie « ){( i|c  :{c  :4c  s(c  *  3(e  9|(  ^  3ft  ^  *  3|e 

%  File:  relangir.m 

%  Used  in  BLOCK:  MissiIe_Control 
% 

%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%Last  Updated:  31  OCT  95 
% 

%  Function:  This  block  determines  the  angle  between  the  missile  and  the 
%  aircraft  from  the  missile  launch  point  in  the  plane  formed  by  the 
%  vectors  to  the  missile  and  to  the  aircraft.  Used  for 
%  line-of-sight  control. 

% 

^:k*3k3k3k***5ft9k**3k*3k3k***:k3le*3k5k3tt*:k*sksk*3k3ksk3k*sk**5(c:k*3k***5kJk*3k3k*5k 

%ul=x  position  of  a/c 
%u2=y  position  of  a/c 
%u3=z  position  of  a/c 

%u4=x  position  of  missile  ^ 

%u5=y  position  of  missile 
%u6=z  position  of  missile 
denom=((sqrt(u(l)*u(i)+u(2)*u(2)+u(3)*u(3)))*... 
(sqrt(u(4)*u(4)+u(5)*u(5)+u(6)*u(6)))); 

if  denom==0 
x=pi/2; 
else 

x=acos((u(  1  )*u(4)+u(2)*u(5)+u(3)*u(6))./denom); 
end 

if  isnan(x)==l  I  isinf(x)~l 
r=0; 
else 
r=x; 
end 
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function  t=testnan(u) 

%  File:  testnan.m 

%  Used  in  BLOCK:  Missile_ControI 
% 

%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%  Last  Updated:  31  OCT  95 
% 

%  Function:  this  functio  passes  a  number,  unless  it  is  Nan  (not  number) 
%  or  infinity  in  which  case  it  returns  a  0. 

% 


if  isnan(u)“l  I  isinf(u)=l  I  u==0 
t=0; 
else 
t=u; 
end 


156 


function  r=test2ero(u) 

:|e  }|c ^  )(c  3(e  3(c  9|(  ^  a(c  *  9fc « :(e  9ft  9(e  3|e  3(t  *  sic  *  :(c  :|c  s|e  :4c  *  *  :1e  )|c  9ic  9|c  ^  *  3k  :(c  :4c  * 

%  File:  testzero.m 

%  Used  in  BLOCK:  Missile_Control 
% 

%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 

%Last  Updated:  31  OCT  95 
% 

%  Function:  This  function  changes  a  zero  to  le-600  (to  prevent  a  division  by  zero) 
%  and  passes  all  other  numbers 

% 

% 

^  :4c  sic  *  *  *  Nc  *  s|c  sic  :|c  *  *  sk  ♦  *  sfc  sk  :4c  *  *  *  9|c  *  *  *  *  sk  sk  He  *  *  *  s{c  *  *  *  Nc  *  sk  sk  sk  *  sk  *  sk  sk  Ne  sk  sk  *  sk  sk  * 

r=u(l); 
ifu(l)==0 
r=  le-600; 
end; 
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function  [ret, xO, struts, xts]=acmeblcm(t,x,u, flag); 

%ACMEBLCM  is  the  M-file  description  of  the  SIMULINK  system  named  ACMEBLCM. 
%  The  block-diagram  can  be  displayed  by  typing:  ACMEBLCM. 

% 

%  SYS=ACMEBLCM(T,X,U,FLAG)  returns  depending  on  FLAG  certain 
%  system  values  given  time  point,  T,  current  state  vector,  X, 

%  and  input  vector,  U. 

%  FLAG  is  used  to  indicate  the  type  of  output  to  be  returned  in  SYS. 

% 

%  Setting  FLAG=I  causes  ACMEBLCM  to  return  state  derivatives,  FLAG=:2 
%  discrete  states,  FLAG=3  system  outputs  and  FLAG=4  next  sample 

%  time.  For  more  information  and  other  options  see  SFUNC, 

% 

%  Calling  ACMEBLCM  with  a  FLAG  of  zero: 

%  [SIZES1=ACMEBLCM([], [],[], 0),  returns  a  vector,  SIZES,  which 

%  contains  the  sizes  of  the  state  vector  and  other  parameters. 

%  SIZES(  1 )  number  of  states 

%  SIZES(2)  number  of  discrete  states 

%  SIZES(3)  number  of  outputs 

%  SIZES(4)  number  of  inputs 

%  SIZES(5)  number  of  roots  (currently  unsupported) 

%  SIZES(6)  direct  feedthrough  flag 

%  SIZES(7)  number  of  sample  times 

% 

%  For  the  definition  of  other  parameters  in  SIZES,  see  SFUNC. 

%  See  also,  TRIM,  LINMOD,  LINSIM,  EULER,  RK23,  RK45,  ADAMS,  GEAR: 

%  Note:  This  M-file  is  only  used  for  saving  graphical  information; 

%  after  the  model  is  loaded  into  memory  an  internal  model 
%  representation  is  used. 

%  the  system  will  take  on  the  name  of  this  mfile: 

sys  =  mfilename; 

new_system(sys) 

simver(1.3) 

if  (0  ==  (nargin  +  nargout)) 

set_param(sys,'Location’, [4, 42, 628,468]) 
open_system(sys) 
end; 

set_param(sys, 'algorithm',  'Linear') 
set_param(sys,’Start  time',  '0,0') 
set_param(sys,'Stop  time',  '80') 
set_param(sys,’Min  step  size',  '0.00 1’) 
set_param(sys,'Max  step  size',  '0.001') 
set_param(sys,’Relative  error','  le-3') 
set_param(sys,'Return  vars’,  ") 

add_block(’built-in/MATLAB  Fcn',[sys,'/','exppos7.m’]) 
set_param([sys,'/’,'exppos7.m'],... 

'orientation',2,... 

'MATLAB  Fcn','exppos7’,... 

'Output  Width',’9'.... 

'position',[  1 800,960, 1 850,990]) 

add_block('buiIt-in/Constant’,[sys,*/',['Effective  radius  ’,13, 'of  expendable7']]) 
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set_param([sys//\['Effective  radius  M3/of  expendable?’]],... 
'Value',’expeff_radius(7)’,... 

’position’, [  1 605, 1 1 80, 1 685, 1200]) 

add_bIock(’built-in/MATLAB  Fcn’,[sys,'/’,'exppos6.ni']) 
set_param([sys,'/’,’exppos6.ni'],... 

'orientation’,2,... 

’MATLAB  Fcn',’exppos6',... 

'Output  Width’,'9’,... 

’position’,  [  1 320, 1 060, 1 370, 1 090]) 

add_bIock(’built-in/Stop  Simulation’,[sys,’/’,['Stop  simulation’,  13,’if  non-zero’,  13,’_7’]]) 
set_param([sys,’/’,[’Stop  simulation’,  13,'if  non-zero’,  13,’_7’]],.,. 

’position', [2050,1 154,2100,1 196]) 

add_bIock(*built-inyTo  Workspace', [sys,’/’,'mexslantrange7']) 
set_param([sys,’/',’mexslantrange7’],... 

’mat-name’,’mexslantrange7’,... 

’buffer’,’ 1000000000’,... 

'position’,[I920,l  185,2010,1205]) 

add_block(’built-ln/To  Workspace’,[sys,’/’,'PK7’]) 
set_param(  [sy  s,'/’,’PK7’]  „ . . 

'mat-name’,’PK7’,... 

’buffer’,’ lOOOOOOOOO’,... 

’position’,[1910,l  145,1960,1 165]) 

add_block(’built-in/To  Workspace’, [sys,’/',’zexp7’]) 
set_param(  [sy  s,  ’/',’zexp7 '] , . . . 

’mat-name’, ’zexp7’,... 

’buffer’,’ 1000000000’,... 

’position’,[2045, 1095,2095,1 1 15]) 

add_bIock('built-in/To  Workspace’,[sys,’/',’yexp7’]) 
set_param([sys,'/’,’yexp7’],... 

’mat-name', ’yexp7’,... 

’buffer’,’ 1000000000’,... 

’position’,[l960,1080,2010,i  100]) 

add^blockCbuilt-in/To  Workspace’, [sys,’/’,’xexp7’]) 
set_p£u-am([sys,'/’,'xexp7’],... 

'mat-name’,’xexp7’,... 

’buffer’,’1000000000’,... 

’position’,[2015, 1055,2065,1075]) 


add_block(’built-in/Stop  Simulation’,[sys,7',('Stop  simulation',  13,'if  non-zero',13,'_6']]) 
set_param([sys,'/',['Stop  simulation',  1 3,'if  non-zero’,  13,'_6']],... 

’position',[  1 590, 1 224, 1 640, 1 266]) 

add_block('built-in/To  Workspace',tsys,'/','PK6']) 
set_param([sys,'/','PK6’],... 

'mat-name','PK6',... 

•buffer',' 1000000000', ... 

'position’,[1460,1215,1510,1235]) 
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add_bIock('buiIt-inyTo  Workspace\[sys//\'mexslantrange6']) 
set_param([sys//’/mexslantrangc6’],... 

’mat-name', ’mexslantrange6'v.. 

'buffer', 'lOOOOOOOOO',... 

'position’, [  1 460, 1 255, 1 550, 1275]) 

add_block(’built-inyTo  Workspace',[sys,’/’,’zexp6']) 
set_param(  [sy  s,*/',’zexp6'] , . . . 

’mat-name’,'zexp6',... 

'buffer’,’1000000000’,... 

’position', [  15 15, 1 175, 1565, 1 195]) 

add_block('buiIt-in/To  Workspace’,[sys,’/’,’yexp6']) 
set_param(  [sy  s,'/*,  'yexp6’] , . . . 

'mat-name',‘yexp6’,... 

’buffer’, ’1000000000’,... 

’position',[1465,l  135,1515,1 155]) 

add_bIock('built-in/To  Workspace’, [sys,’/',’xexp6']) 
set_param([sys,’/','xexp6’],... 

'mat-name','xexp6',... 

'buffer',' lOOOOOOOOO’,... 

'position’,[l515,l  115,1565,1 135]) 

add_block('built-in/Constant’,[sys,'/', ['Effective  radius  ',13,'of  expendable6']]) 
set_param([sys,'/',[’Effective  radius  ’,13,’of  expendable6’]],... 

’Value’, 'expeff_radius(6)’,... 

’position’,  [  1 095 , 1 250, 1 1 90, 1 270] ) 

add_bIock(’built-in/Stop  Simulation’, [sys,'/’, [’Stop  simulation',  13, ’if  non-zero’,  1 3,’_5’]]) 
set_param([sys,’/’,['Stop  simulation', 1 3,'if  non-zero’,  13,'_5']],... 

'position’,[  1 020, 1 1 49, 1 070, 1191]) 

add_block(’built-in/To  Workspace’, [sys,'/’,’mexslantrange5’]) 
set_param([sys,'/’,'mexslantrange5'],... 

'mat-name', ’mexslantrange5’,... 

'buffer',’ lOOOOOOOOO',... 

'position',[895, 1 1 80,985, 1 200]) 

add_block('built-in/To  Workspace', [sys,'/’,'PK5']) 
set_param([sys,'/',’PK5'],.,. 

'mat-name’,’PK5',... 

’buffer’,’ lOOOOOOOOO',... 

’position',[945,l  140,995,1 160]) 

add_block('built-inyTo  Workspace’,[sys,’/’,’zexp5']) 
set_param([sys,’/’,'zexp5'],... 

'mat-name',’zexp5’,... 

'buffer',' lOOOOOOOOO’,... 

'position’,[980,1095, 1030,1 1 15]) 

add_bIock('built-in/To  Workspace', [sys,’/’,'yexp5']) 
set_param([sys,’/’,’yexp5'],,.. 

’mat-name',’yexp5’,... 

'buffer',' lOOOOOOOOO’,... 
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*position\[925, 1065,975, 1085]) 


add_block('built-in/To  Workspace', [sys,7','xexp5’]) 
set_param([sys,7,'xexp5’],... 

'mat-name’,’xexp5’,... 

'buffer',’ 1000000000’,... 

'position',[985, 1045, 1035, 1065]) 

add_block('built-in/Constant',[sys,'/’, ['Effective  radius’,  1 3,’  of  expendable5’]]) 
set_param([sys,'/', ['Effective  radius',  13,'  of  expendable5']],... 

'Value', 'expeff_radius(5)',... 

’position',[575,l  174,675,1 196]) 

add_block(’built-in/MATLAB  Fcn',[sys,'/','exppos5.m’]) 
set_param([sys,'/',’exppos5,m’],... 

'orientation*, 2,... 

'MATLAB  Fcn’,'exppos5’,... 

'Output  Width', '9',... 

'position', [775,965, 825,995]) 

add_block('built-in/Constant',[sys,'/’, [’Effective  radius  ’,13,’of  expendable4']]) 
set_param([sys,*/’,[’Effective  radius  ',l3,'of  expendable4']],... 

'Value', 'expeff_radius(4)’„.. 

'position’,[80,l  145,175,1 165]) 

add_block('built-in/Stop  SimuIation’,[sys,'/’,['Stop  simulation',  13, 'if  non-zero’,  1 3, ’_4']]) 
set_param([sys,'/',['Stop  simulation’,  13,'if  non-zero',  13,'_4’]],... 

’position',[505,l  119,555,1 161]) 

add_bIock(’buiit-in/To  Workspace', [sys,'/','mexslantrange4']) 
set_param([sys,’/’,'mexslantrange4'],... 

'mat-name’,'mexslantrange4',. .. 

’buffer','l000000000',... 

’position’,[400, 1150, 490,1 170]) 

add_block('buiit-in/To  Workspace’,[sys,'/’,’PK4']) 
set_param([sys,'/','PK4'],... 

’mat-name’,’PK4’,... 

•buffer’,’ 1000000000’,... 

•position',[420,l  1 10,470,1 130]) 

add_block('built-in/To  Workspace', [sys,'/’,’zexp4']) 
set_param([sys,'/','zexp4’],... 

'mat-name' .'zexp4',... 

'buffer',’ 1000000000’,... 

’position',[490, 1075,540,1095]) 

add_block(’buiit-in/To  Workspace’,[sys,'/','yexp4’]) 
set_param([sys,'/’,'yexp4'],... 

’mat-name',’yexp4’,... 

'buffer',’ 1000000000’,... 

’position’,[410,1050, 460,1070]) 

add_block('built-in/To  Workspace’, [sys,'/','xexp4']) 
set_param([sy  s,’/’,'xexp4'] , . . . 
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’mat-name*,’xexp4\... 
•buffer’/lOOOOOOOOO’,... 
’position\[455, 1020,505, 1040]) 

add_bIock('built-in/MATLAB  Fcn',[sys,7,'exppos4.m’]) 
set_param([sys,V','exppos4,m’],... 

'orientation’, 2,... 

'MATLAB  Fcn’,'exppos4’,... 

'Output  Width’,’9’,... 

'position', [275, 945, 325,975]) 


%  Subsystem  'Missilexyz*. 
new_system([sys,*/',*Missilexyz']) 

set_param([sys,'/','MissiIexyz'],'Location’,[-19, 139, 1 1 17,676]) 

add_bIock('buiIt-in/Sum',[sys,'/’,'MissiIexyz/sI*]) 

set_param([sys,'/',’MissiIexyz/sr],... 

'inputs’,'+++',... 

'position', [325,252,345,288]) 

add_block(’built-in/Fcn',[sys,'/','MissiIexyz/Fcnl2']) 

set_param([sys,'/’,'Missilexyz/Fcnl2'],... 

’Expr','sqrt(u[l  ])’,... 

•position',[360, 258,425 ,282]) 

add_biock('buiIt-in/Note',[sys,'/','Missilexyz/alpha ']) 
set_param([sys,*/',’MissiIexyz/aIpha '],... 

'position', [592, 195,597,200]) 

add_block('built-in/Note’,[sys,'/','Missilexyz/beta’]) 

set_param([sys,’/','Missilexyz/beta'],... 

•position',[682,245,687,250]) 

add_block('built-in/Mux',[sys,'A'MissiIexyz/Mux3’]) 

set_param([sys,'/','Missilexyz/Mux3’],... 

'inputs','2’,... 

'position'.[655,298,685,327]) 

add_block('built-in/MATLAB  Fcn',[sys,'/',’MissiIexyz/divplus.m’]) 
set_param([sys,’/’,'MissiIexyz/divpIus.m'],... 

'MATLAB  Fcn’,'divplus',... 

'Output  Width',’!’,... 

'position', [715, 300,765,330]) 

add_block('built-in/MATLAB  Fcn’,[sys,’/’,’Missilexyz/divplus.m  (2)']) 
set_param([sys,'/',’MissiIexyz/divpIus.m  (2)'],... 

'MATLAB  Fcn',’divplus',... 

'Output  Width’,’!’,... 

’position’,[595,250,645,280]) 

add_block(’built-in/Mux',[sys,’/’,'Mi$siIexyz/Mux2']) 

set_param([sys,’/',’Missilexyz/Mux2'],... 

'inputs',’2’,... 
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'position\[535, 248,565,277]) 

add_block('built-in/Mux’,[sy  s,7,'Missilexy  z/Mux  I ']) 
set_param([sys,V’/Missilexy  z/Mux  I 
*inputsV2\... 

'position', [445, 198,475,227]) 

add__block('built-in/Inport',[sys,’/','Missilexyz/in_3']) 

set_parani([sys,'/','MissiIexyz/in_3‘],... 

'Port',’3',... 

'position', [495 ,355,5 15,375]) 

add_block('built-in/Product',[sys,’/','MissiIexyz/mir]) 
set_param([sys,'/',’Missilexyz/ml  1'],... 

'position', [880,385,905, 405]) 

add_block('buiIt-in/Product',[sys,'/','Missilexyz/ml2']) 
set_param([sys,'/’,'Missilexyz/m  1 2'],... 

'position', [905,305,930,325]) 

add_block(’buiIt-in/Product',[sys,'/','MissiIexyz/ml3']) 

set_param([sys,'/','Missilexyz/ml3'],... 

'position',[920,2 1 0,945,230]) 

add_block(’buiIt-in/Sum’,[sys,'/',*MissiIexyz/Sum7’]) 

set_param([sys,’/','MissiIexyz/Sum7’],... 

'position', [995,390,1015,410]) 

add_block('built-in/Product',[sys,'/’,’MissiIexyz/ml6']) 

set_param([sys,*/',’MissiIexyz/ml6'],... 

*position',[9 10,435,935,455]) 

add_block('built-in/MATLAB  Fcn',(sys,'/','MissiIexyz/divplus.m(3)’]) 
set_param([sys,'/','MissiIexyz/divplus.m(3)'],... 

'MATLAB  Fcn','divplus',.,. 

'Output  Width’,'!',... 

'position’,[535, 200,585,230]) 

add_biock('built-in/Sum',[sys,’/’,’MissiIexyz/Sum6']) 

set_param([sys,’/',’MissiIexyz/Sum6'],... 

'position', [1015, 335, 1035,355]) 

add_bIock(’built-in/Product',[sys,'/','Missilexyz/nil5']) 

set_param([sys,'/’,’Missilexyz/ml5'],... 

'position', [950,345, 975,365]) 

add_block('buiIt-inyTo  Workspace', [sys,'/','MissiIexyz/ym']) 
set_param([sys,’/',*Missilexyz/ym’],... 

’mat-name','ym',... 

'buffer', '1000000000',... 

’position',[  11 15,337, 1165,353]) 

add_block(’built-inyTo  Workspace’,[sys,’/',’Missiiexyz/zm']) 
set_param([sys,*/','Missilexyz/zm’],... 

'mat-name','zm’,... 
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’buffer’;iOOOOOOOOO\... 

•position’, [1 125,392,1 175,408]) 

add_bIock(’buiIt-in/Mux’,[sys,7,'Missilexyz/Muxl9’]) 

set_param([sys,V,’Missilexyz/Muxl9’].... 

’orientation’, 3,... 

'inputs’,’3’,... 

‘position',[  1052,45, 1088,95]) 

add_biock(‘built-in/Product’,[sys,'/',’Missilexyz/ml4’]) 

set_parani([sys,V',’Missilexyz/ml4*],... 

•position’,[925,265,950,285]) 

add__block('built-in/Sum’,[sys,’/’,*Missilexyz/Sum5']) 

set_param([sys,’/’,’Missilexyz/Sum5’],... 

•position’,[985, 235, 1005,255]) 

add_bIock(’built«in/To  Workspace’, [sys,'/’,’Missilexyz/xm’]) 
set__param([sys,’/’,’MissiIexyz/xm'],... 

’mat'name','xm’,... 

’buffer’,'1000000000’,... 

’position’,[l  120,237,1 170,253]) 

add_block('buiIt-in/Outport’,[sys,*/’,[’Missilexyz/Missile  position’,  I3,’(x,y,z)']]) 
set_param([sys,’/*,['MissiIexyz/MissiIe  position’,  13, '(x,y,z)']],... 

’orientation’,3,... 

’position',[  1 060, 1 0, 1 080,30]) 

add_block(’buiIt-in/Inport',[sys,’/',’MissiIexyz/in_2’]) 

set_param([sys,’/’,'Missilexyz/in_2’],... 

’Port’,‘2',... 

’position’,[780,390,800,410]) 

add_block(’built-in/Demux‘,[sys,'/',’Missilexyz/Demux4']) 

set_param([sys,’/','MissiIexyz/Demux4’],.,. 

'outputs','3’,... 

’position’,[95, 1 1 2, 1 35, 1 68]) 

add_bIock(’built-in/Product',[sys,'/’,'Missilexyz/m2']) 

set_param([sys,’/’,'Missilexyz/m2’],... 

’position’,[245,285,270,305]) 

add_block(’buiIt-in/Inport’,[sys,’A(’MissiIexyz/AC  position’,  1 3, ’(x,y,z)’]]) 
set_param([sys,'/’,['Missilexyz/AC  position’,  13,’(x,y,z)']],... 

’position’,[40, 1 30,60, 150]) 

add_block(’buiIt-in/Product’,[sys,'/’,’Missilexyz/m  1 ']) 
set_param([sy  s,’/’,'Missilexyz/m  1 

’position’, [205,205, 230,225]) 

add_bIock(’built-in/Product',[sys,’/’,’Missilexyz/m’]) 

set_param([sys,’/’,'Missilexyz/m'],„. 

’position',[205, 260, 230,280]) 

add_block(’built-in/Note',[sys,’/’,’Missilexyz/BLOCK:  Missiiexyz']) 


164 


set_parani([sys,'/','Missilexyz/BLOCK:  Missiiexyz’],... 

'position',[470, 500,475,505]) 

addJine([sys,7’,'Missilexyz'],[935,315:957,315;957,340;10lO,340]) 

addJine([sys,7','Missilexyz'],(590,215;915,2l5]) 

addJine([sys,'/',’Missilexyz'],[905,215;895,215:895,270;920,270]) 

addJine([sys,7','Missilexyz'],[  140, 1 60;  147, 1 60;  147,290;240,290]) 

addJine([sys,7','Missilexyz’],[147,270;147,300;240,300]) 

addJine([sys,r,’Missi!exyz'].[  140, 140;  167, 140;  167,265;200,265]) 

add_line([sys,7','Missiiexy  z'],[  140, 1 20;  1 85. 1 20;  1 85,2 1 0;200,2 1 0]) 

addJine([sys,7',’Missilexyz'],[1020,400;l  120.400]) 

addJine([sys,7','Missilexyz'],[1020,400;1080.400;1080,100]) 

addJine([sys,7','Missilexyz’],[1010,245;l  1 15.245]) 

add_line([sys.7','Missilexyz'],(1010,245;1060.245;1060,100]) 

addJine([sys,7','Missilexyz’].[  1040,345: 1 1 10,345]) 

addJine([sys,7','Missilexyz'],[1040,345;1070,345;1070,100]) 

addJine([sys,r,'Missilexyz’],[235,215;287,215;287,260;320,260]) 

addJine([sys,T,'Missilexyz'],[275,295;287,295;287,280;320,280]) 

addJine([sys,7','Missilexyz'],[430,270;530.270]) 

addJine([sys,7','Missilexyz'],[430,270;467.270;467,320:650,320]) 

addJine([sys,7','Missilexyz’],(430,270:427,270;427,220;440,220]) 

addJine([sys,7','Missilexyz'],(350,270;355.270]) 

addJine([sys,7','Missilexyz'],(910,395:990,395]) 

addJine([sys,7','Missilexyz'],(940,445;960.445;960,405;990,405]) 

addJine([sys,7','MissiIexyz’],[980,355;990,355;990,330;1010,350]) 

add_line([sys,7','Missilexyz'],[955,275;970,275;980,2501) 

addJine([sys,7’,'Missilexyz’],[950,220;967,220;967,240;980,240]) 

addJine([sys,7','Missilexyz'],[650,265:882,265;882,310;900,310]) 

addJine([sys,7','Missilexyz'],(690,315;710,315]) 

add_line([sys,7’,’Missilexyz’],[570,265;590,265]) 

addJine([sys,7','Missilexyz’],[480,2 15:530.21 5]) 

add_line([sys,7','Missilexyz'],[65, 140:90, 140]) 

addJine([sys,7','Missilexyz'],[  1070,40;  1070,35]) 

addJine([sys,7','Missilexyz’],[520,365;650.365;650,450;905,450]) 

addJine([sys,7','Missilexyz'],[520,365;840,365;840,360;945,360]) 

add_line([sys,7','Missilexyz'], [840,365:840, 280:920,280]) 

addJine([sys,7','Missilexyz’],[770,3 15:8 15,3 15:8 15,390:875,390])  . 

addJine([sys,7’,'Missilexyz'],[8 15,390;8 15,440;905,440]) 

addJine([sys,7','Missilexyz'],[147,300;155,300;155,325;510,325;510,305;650,305]) 

addJine([sys,7’,’Missilexyz'],[235,270:320,270]) 

addJine([sys,7','Missilexyz'],[185,210;185,220;200,220]) 

addJine([sys,7','Missilexyz'],[175,265;  175,275:200,275]) 

addJine([sys,7','Missilexyz'],[167,240;455,240:455,255;530,255]) 

addJine([sys,7','Missilexyz’],[  1 85, 190;430, 1 90:440,205]) 

addJine([sys,7’,’Missilexyz'],[805,400;875,400]) 

addJine([sys,’/','Missilexyz'],[855, 400:855,320:900,320]) 

addJine([sys,7',’Missilexyz’],[855,320;855,225;915,225]) 

addJine([sys,7','Missilexyz'],[880,265;880, 350:945,350]) 

set_paratn([sys,7','Missilexyz'],... 

’Mask  Display','AC  position  (x,y,z)  \nsin  pos  Missile  (x,y,z)\ncos  pos 

■) 


%  Finished  composite  block  'Missiiexyz'. 
set_param([sys,'/','Missilexyz'],... 
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’position\[6 15, 144,765, 196]) 


%  Subsystem  'MissiIe_Range\ 

new_system([sys,7',’MissiIe_Range’]) 

set_param([sys,7’,’MissiIe_Range'],'Location\[40,255,885,53l]) 

add_blockCbuiIt-in/Outport’,[sys,7,’MissiIe_Range/Missile  Range*]) 
set_param([sys,'/’,’Missile_Range/Missile  Range'],... 

'orientation', 2,... 

’position*,[80,95, 100,1 15]) 

add_block('built-in/To  Workspace', [sys,'/’,'MissiIe_Range/mrange’]) 
set_param([sys,*/*,’Missile_Range/mrange’],... 

’orientation’, 2,... 

’mat-  name’,’mrange’,. . . 

'buffer’, ’lOOOOOO',... 

’position',[70,137,120,I53]) 

add_block('buiIt-in/Inport',[sys,’/VMissiIe_Range/Missile  Position  (x,y,z)’]) 
set_param([sys,’/’,’Missile_Range/Missile  Position  (x,y,z)'],... 
’orientation’,2,... 

’position’,[645,90,665,110]) 

add_bIock('bui!t-in/Product',[sys,'/’,'MissiIe_Range/m8’]) 

set_param([sys,'/’,’Missile__Range/m8’],... 

’orientation’,2,... 

’position’, [340, 125,365, 145]) 

add_bIock(’built-in/Product*,[sys,'/’,'Missile_Range/m7']) 

set_param([sys,’/',’MissiIe_Range/m7’],... 

'orientation’,2,... 

'position’,[385,95,410, 1 15]) 

add_bIock('built-in/Sum’,[sys,’/’,'Missile_Range/Sum3’]) 

set_param([sys,’/’,’Missile_Range/Sum3’],... 

’orientation’,2,... 

’inputs’, 

'position',[270,87,290,123]) 

add_bIock(’built-in/Product',[sys,'/’,'Missile_Range/m6']) 

set_param([sys,’/*,’Missile_Range/m6'],... 

’orientation’,2,... 

’position',[340, 60,365,80]) 

add_block('built-in/Demux',[sys,’/’,'MissiIe_Range/Demux7’]) 

set_param([sys,'/’,’MissiIe_Range/Demux7'],... 

'orientation’,2,... 

’outputs’, ’3’,... 

’position',[505,83,545,117]) 

add_block(’built-in/Fcn’,[sys,'/’,'Missile_Range/FcnlO’]) 

set_param([sys,'/’,’Missile_Range/FcnlO'],... 

'orientation',2,... 
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’Expr',’sqrt(u[  I 
'position’,(  145,91,230,1 19]) 

adcl_block('built-in/Note‘,[sys,7*,'Missile_Range/BLOCK:  Missile_Range']) 
set_param([sys,7,'Missile_Range/BLOCK:  MissiIe_Range'],... 
’position’,[365,205,370,210]) 

addJine([sys,7,'Missile_Range’],[500,110;462,110;462,130;370,130]) 

add  Jine([sys,7,’Missile_Range'],[407, 1 30;407, 140;370, 140]) 

addJine([sys,7,’Missile^Range’],[500,90;452,90;452,65;370,65]) 

addJine([sys,7,*Missile_Range'],[387,65;387,75;370,75]) 

addJine([sys,7,’Missile^Range'],[500,100;415,100]) 

add  Jine([sys,7,'Missile^Range’],[447, 100;447,  U0;415, 1 10]) 

addJine([sys,7;Missile_Range'],[265,105;235,105]) 

addJine([sys,7,’Missile_Range’],[335,70;307,70;295,95]) 

addJine([sys,7,’Missile^Range'],[380,105;295,l05]) 

addJine([sys,7,’MissiIe_Range’],[335,135;307.135;295,115]) 

addJine([sys,7,’Missile^Range‘],[140,105;135,105;125,145]) 

addJine([sys,7,'MissiIe_Range’],[640,100;550,100]) 

addJine([sys,7,’Missile_Range’],[I40,105;l05,105]) 

set_param([sys,7,’MissiIe_Range'],... 

'Mask  Display', '\nMissile  Missile  \nRange  position  \n 


%  Finished  composite  block  'Missile_Range’. 

set_param([sys,7,’Missile_Range’],... 

’orientation',2,... 

’position’,[360, 475,495, 525]) 

add_block('built-in/Demux',[sys,'/','Dem6‘]) 

set_param([sys,'/','Dem6'],... 

’outputs*,'7',... 

'position', [  1455,880, 1495,960]) 

add_block('built-in/Constant',[sys,7,’expdelay']) 

set_param([sys,'/',’expdelay'],... 

'Value',’expdelay’,... 

'position', [1015, 850,1070,870]) 


%  Subsystem  'Launch_multiple'. 
new_system([sys,'A'Launch__muItipIe']) 

set_param([sys,'/’,'Launch_muItipIe'],'Location', [87,270, 1098,834]) 

add_block('built-in/To  Workspace', [sys,'/’,'Launch_multipIe/opertime']) 
set_param([sys,'/','Launch_multipIe/opertime’],... 

'mat-name','opeitime',... 

•buffer’,'1000000000',... 

'position', [170,44,245,66]) 

add_biock('built-in/Sum',[sys,’/','Launch_multiple/s3’]) 

set_param([sys,'/','Launch__muItiple/s3'],... 

'orientation',  1,... 

'position',[544, 1 40,57 1 , 1 60]) 


(x,y,z)') 
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add_block('built“in/Constant’,[sys,T/Launch_multiple/Computation  time  required']) 
set_param([sys,V','Launch_multipIe/Computation  time  required'],... 

'Value', 'computation_time_required',... 

'position', [280,87, 450, 103]) 

add_bIock('built-in/Constant',[sys,'/','Launch_multipIe/Slew  time  required’]) 
set_param([sys,'/','Launch_multipIe/SIew  time  required'],... 

*Value','slew_timc_required',... 

'position', [290, 120, 450,140]) 

add_block(’built-in/Demux',[sys,'A'Launch_multiple/Dem5']) 

set_param([sys,'/’,'Launch_multiple/Dem5'],... 

'orientation’,2,... 

'outputs',’ 15’,... 

’position’,[  170, 185,2 10,265]) 

add_bIock('buiIt-in/Mux’,[sys,’/',’Launch_muItiple/Mux20']) 

set_param([sys,'/','Launch_multiple/Mux20'],... 

'orientation', 3,... 

'inputs', '7',... 

’position’,[4 1,100, 1 19,135]) 

add_block(’built-in/Mux*,[sys,'/’,’Launch_muItipIe/Muxl7’]) 

set_param([sys,'/','Launch_multiple/Muxl7'],... 

'orientation',2,... 

'inputs', '  I  r,... 

'position', [465, 194,500,306]) 

add_bIock('buiIt-in/MATLAB  Fcn',[sys,'/',[’Launch_multipIe/Get 
expendable',  l3,'Iaunch',l3,'trajectory',13,'Inchtram.m']]) 

set_param([sys,’/’,['Launch_multipIe/Get  expendable',  13,'Iaunch’,l  3, 'trajectory',  13, 'Inchtram.m']],... 
'orientation',2,... 

'MATLAB  Fcn’,'lnchtram',... 

'Output  Width',' 1 5',... 

'position', [375, 230, 425, 260]) 

add_block('buiIt-in/Memory',[sys,*/’,[’Launch_muItiple/’,  13, 'Memory  2',13,'IC=[100(7)',13,’  1(7) 

100]']]) 

set_param([sys,’/',['Launch_multiple/’,13,'Memory  2',13,'IC=[100(7)',13,'  1(7)  100]']],... 

'orientation’,2,... 

'x0’,’[100  100  100  100  100  100  100  -1  -I  -1  -1  -1  -1  -1  100]’,... 

'position', [285, 230, 325,260]) 

add_bIock('built-inyTo  Workspace', [sys,'/’,'Launch_multipIe/launch  time']) 
set_param([sys,'/',’Launch_multipIe/Iaunch  time’],... 

'mat-name', 'launch^time',... 

'buffer',’ 1000000000',... 

'position', [165,284,240,306]) 

add_block('buiIt-in/Outport’,[sys,’/’,’Launch_muItipie/Operational  Times']) 
set_param([sys,’/','Launch_muitipIe/Operational  Times’],... 

'orientation', 3,... 

’position',[70, 15,90,35]) 
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add_block('built'in/Outport\[sys,'/’,'Launch_muItipIe/Launch  Flag  7']) 
set_param([sys,'/’,'Launch_multiple/Launch  Flag  7’],... 

’orientation\2,... 

’position\[40, 465,60, 485]) 

add_block(’built-in/Outport',[sys,T,’Launch_multiple/Launch  Flag  5’]) 
set_param([sys,‘/’,'Launch_multiple/Launch  Flag  5'],... 

’orientation*, 2,... 

’Port’,’6’,... 

•position’,[40,375,60,395]) 

add_block('buiIt-in/Outport',[sys,'/','Launch_muItipIe/Launch  Flag  4']) 
set_param([sys,’/’,’Launch_multiple/Launch  Flag  4'],... 

’orientation',2,... 

’Port','5',... 

’position’, [40, 335, 60, 355]) 

add_block('built-in/Outport’,[sys,'/’,'Launch_multiple/Launch  Flag  6’]) 
set_param([sys,'/’,'Launch_multiple/Launch  Flag  6'],... 

'orientation’,2,... 

’Port’,'7’,... 

’position', [40,4 15,60,435]) 

add_block('built-in/Outport',[sys,’/’,’Launch_muItiple/Launch  Flag  3']) 
set_param([sys,'/’,’Launch_muItipIe/Launch  Flag  3’],.., 

'orientation’,2,... 

’Port', ’4’,... 

’position', [40,295 ,60,3 15]) 

add_block('built-in/Outport’,[sys,’/’,'Launch_multiple/Launch  Flag  2']) 
set_param([sys,'/’,’Launch_muItipIe/Launch  Flag  2’],... 

’orientation’,2,... 

’Port',’3’,... 

’position', [40,255,60, 275]) 

add_bIock(’built-in/Outport’,[sys,'/',’Launch_muItiple/Launch  Flag  1  ’]) 
set_param([sys,'/’,'Launch_muItiple/Launch  Flag  1’],... 

’orientation’,2,... 

'Port', '2',... 

’position’, [40,215,60,235]) 

add_block('built-in/To  Workspace’, [sys,'/','Launch_muItipie/Quadrant  launch  time’]) 
set_param([sys,’/','Launch_multipIe/Quadrant  launch  time’],... 
'mat-name',’quadjaunch_time',... 

'buffer',' 1 000000000’,... 

'position’,[705,340,785,360]) 

add_block('built-in/Inport',[sys,'/','Launch_muItiple/Time']) 

set_param([sys,’/’,’Launch_multipIe/Time’],... 

’orientation',2,... 

’Port’,’3’,... 

'position',[585, 170,605, 190]) 

add_block('built-in/Inport',[sys,’/','Launch_muItiple/Launch  data’]) 
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set_param([sys,T/Launch_multiple/Launch  data'],... 

'orientation', 2,... 

'Port','?',... 

'position’,[780, 305, 800,325]) 

add_block(’built-in/Inport',[sys,’/','Launch_muItipIe/AC  pos  (x,y,z)’]) 
set_param([sys,'/’,’Launch_multipIe/AC  pos  (x,y,z)'],... 

'orientation', 2,... 

'Port', '5',... 

’position',[785, 205,805, 225]) 

add_block('built-in/Inport',[sys,'/’,'Launch_muItiple/Fire  Flag’]) 
set_param([sys,'/','Launch_multiple/Fire  Flag'],... 

'orientation', 2,... 

•Port’,’4',... 

'pos  i  ti  on' ,  [7 85 , 1 65 , 805 ,185]) 

add_bIock('built-in/Constant’,[sys,'/’,[’Launch_muItipIe/Detect  time',  13,'  after  launch']]) 
set_param([sys,'/’,[’Launch_multip!e/Detect  time',  i  3,'  after  launch']],... 
'Value’,*detecttar,... 

'position’,[730,25,8 10,45]) 

add_block(’built-in/Constant*,[sys,*/',['Launch_muItiple/Shot  time  ',13, 'after  T//0']]) 
set_param([sys,'/’,[’Launch_muItiple/Shot  time  ',13,’after  T//0']],... 

'orientation',2,... 

'Value', 'shottime',... 

'position', [875, 25,955, 45]) 

add_bIock('built-in/Sum',[sys,'/’,'Launch_muItiple/s2’]) 

set_param([sys,'/’,'Launch_multiple/s2'],... 

'orientation',  1,... 

'position’,[829, 120,856, 140]) 

add_block('buiIt-in/Sum',[sys,'/','Launch_multiple/s2J]) 
set_param  ( [  sy  s,  ,  'Lau  nc  h_mu  1 1  i  ple/s2  J] , . . . 

'orientation’,2,... 

'inputs','++-’,... 

'position',[860,222,880,278]) 

add_block('built-in/Inport',[sys,'/’,['Launch_multiple/Quadrant  time',  13, 'to  target']]) 
set_param([sys,'/',['Launch_multiple/Quadrant  time',  13, 'to  target']],... 

'orientation',2,... 

'position’,[910,258,930,282]) 

add_block('built-in/Inport',[sys,'/’,'Launch_multipIe/AC  vel  (z,x)’]) 
set_param([sys,'/',’Launch_multiple/AC  vel  (z,x)’],... 

'orientation',2,... 

'Port', '6',... 

'position',[680,215,700,235]) 

add_block('built-in/Inport',[sys,'/',[’Launch_muitiple/Quadrant  Launch’,  13,'Delay']]) 
set_param([sys,'/’,['Launch_multiple/Quadrant  Launch',  13,'Delay']],... 

'orientation',2,... 

'Port', '2',... 

'position',  [980,24 1 ,1005,259]) 
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add_block('built-in/Inport\[sys//’,‘Launch_muItipIe/expdeIay']) 

set_param([sys,'/’Xaunch_multiple/expdelay'],... 

'orientation*, 2,... 

'Port’X',... 

'position', [530, 365,550385]) 

add_block('buiIt-in/Constant',[sys,‘/','Launch_multipIe/muzzIe  velocity']) 
seLparam([sys,’/','Launch_multiple/muzzle  velocity'],... 

'Value', 'muzzle^vel',... 

•position’, [350, 505,405, 525]) 

add_block('built-in/Mux',[sys,'/’,'Launch_multipIe/Mux  1 8’]) 
set_param([sys,’/',’Launch_muItiple/Mux  1 8*],... 

'inputs’,'5*,... 

’position’,[460, 402, 490,528]) 

add_block('built-in/Constant',[sys,'/’,’Launch_multiple/Tduration’]) 

set_param([sys,'/','Launch_muItiple/Tduration'],... 

'Value',’Tduration’,... 

'position',[285, 430,340,450]) 

add_block('built-in/Constant’,[sys,'/’,'Launch_multiple/tracker']) 

set_param([sys,'/’,'Launch_multipIe/tracker’],... 

'Value*, 'tracker',... 

'position’,[355,405, 410,425]) 

add_block('built-in/Constant*,[sys,*/',’Launch_muItiple/R_Thrust']) 

set_param([sys,*/',*Launch_muItiple/R_Thrust'],... 

'Value*,'R_Thrust'„.. 

'position',[350,455,405,475]) 

add_bIock(’built-in/Constant',[sys,'/*,'Launch_muItipIe/iethaldist']) 

set_param([sys,'/',’Launch_multiple/lethaldist'],... 

’Value*,’lethaldist*,... 

'position',[290, 480, 345,500]) 

add_block('buiIt-inyNote',[sys,*/*,'Launch_niuItipIe/BLOCK:  Launch_multiple’]) 
set_param([sys,'/*,'Launch_multiple/BLOCK:  Launch_multiple'],... 
’position*,[690,510,695,515]) 

addJine([sys,*/*,’Launch^multiple’],[845,I45;845,170;895,170;885,230]) 

addJine([sys,’/*,'Launch_multiple'],[80,95;80,40]) 

addJine([sys,'/*,’Launch_multipie'],[80,50;80,55;l65,55]) 

addJine([sys,’/*,*Launch_multiple'],[560,165;560,300;505,300]) 

addJine([sys,'/’,’Launch_multipIe'],[455,95;565,95;565,135]) 

addJine([sys,'/*,'Launch.muItiple'],[455,130;465,130;465,120;550,120;550,135]) 

addJine([sys,*/','Launch_multipIe'],[845,145;845,280;505,280]) 

addJine([sys,’/',’Launch_multiple’],[815,35;835,35;835,115]) 

add  Jine([sys,'/’,'Launch_multip!e’],[870,35;850,35;850, 1 15]) 

addJine([sys,’/*,'Launch_multiple'],[855,250;505,250]) 

addJine([sys,’/',*Launch^multiple'],[690,250;700,350]) 

add  Jine([sys,'/*,*Launch_multiple'],[  1 65,220;  1 10,220;  1 10, 140]) 

addJine([sys,*/','Launch_muItipIe’],[  165,215;  100,215;  100, 140]) 

addJine([sys,'/’,’Launch_muItiple’],[165,210;90,2I0;90,l40]) 

addJine([sys,'/',’Launch_multipIe’],[165,205;80,205;80,l40]) 
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addJine([sys;/’;Launch^multipIe'],[  I65,200;70,200;70, 140]) 

add  Jine([sys,7/Launch_multiple'],[  165, 195;60, 195;60, 140]) 

addJine([sys,'A’Launch_niultiple’],[165,190;50,190;50,140]) 

addJine([sys,'/’,'Launch_multiple'],[  165,260;  150,260;  160,295]) 

addJine([sys,*/',’Launch_multiple’],[410,515;455,5l5]) 

addJine([sys,T;Launch^multiple’],[280,245;260,225;215,225]) 

addJine([sys,T,’Launch_multiple'],[260,225;260,325;555,325;555,270;505,270]) 

add_line([sys,'/’,'Launch_multiple'],[370,245;330,245]) 

addJine([sys,7.*Launch_multiple'],[350,490;455,490]) 

add  Jine([sy  s,7,'Launch_multiple']  ,[4 1 0,465  ;455,465] ) 

addJine([sys,T,‘Launch_multiple’],[495,465;575,465;575,260;505,260]) 

addJine([sys,T,'Launch_multiple'],[345,440;455,440]) 

addJine([sys,7,’Launch_multiple’],[415,415;455,415]) 

addJine([sys,7','Launch_multiple'],[460,250;430,245]) 

addJine([sys,T,'Launch_multiple'],[905,270;885,270]) 

addJine([sys,V’,’Launch_multipIe'],[975,250;885,250]) 

addJine([sys,'/','Launch_multiple'],[780,175;625,175;625,210;505,210]) 

add_line([sys,V'/Launch_multiple'],[780,215;610,215;610,220;505,220]) 

addJine([sys,7*,'Launch_multiple'],[l65,225;65,225]) 

addJine([sys,7',’Launch^multipIe’],[675,225;625,225;625,230;505,230]) 

addJine([sys,T,’Launch_muItiple’],[165,230;95,230;95,265;65,265]) 

add  Jine([sys,7,’Launch_multipIe‘],[  165,235;  100,235;  100,305;65,305]) 

addJine([sys,T,’Launch^muItiple'],[775,315;600,3I5;600,240;505,240]) 

add_line([sys,7’,’Launch_muItiple'],[  165,240;!  10,240;!  10,345  ;65,345]) 

addJine([sys,r;Launch_multiple’],[165,245;l20,245;120,385;65,385]) 

addJine([sys,7’,*Launch^mu!tiple'],[165,250;130,250;130,425;65,425]) 

addJine([sys,7',’Launch_muItiple'],[  165,255;  140,255;  140,475;65, 475]) 

addJine([sys,r,’Launch_.multiple'],[525,375;525,290;505,290]) 

add  Jine([sys,'/’,'Launch_multip!e’],[580, 1 80;575, 1 80;575,200;505,200]) 

set_param([sys,7’,‘Launch_muItiple'],.,. 

'Mask  DispIay',’Quad  time-  Operational\n  to-target  Times\nQuad  launch 

LaunchVndelay  Flagl\nGlobaI  Time  Flag  2\n\nFire  Flag  Flag  3\n\nAC  position  Flag  4 

\n  (x,y,z)  \nAC  Velocity  Flag  5  \n  (z,x)  \nLaunch  data  Flag 

6\nExpendable  \n  delay  Flag  T) 


%  Finished  composite  block  *Launch_multip!e'. 

set_param([sys,'/’,'Launch_multiple']„.. 

’position’,[l  1 15,704,1260,876]) 

add_block(’built-in/Constant’,[sys,7,['Effective  radius  ’,13, 'of  expendable3’]]) 
set_param([sys,’/', ['Effective  radius  ',13,'of  expendable3']],... 

'Value', 'expeff_radius(3)',... 

'position',[  1 375,705, 1470,725]) 


%  Subsystem  'Go^operationaLmultiple'. 
new_system([sys,'/’,'Go_operationaLmultipIe']) 

set_param([sys,'/’,'Go_operationaLmultiple'],'Location’,[333,66 1 ,1058,882]) 

add_block('built-in/Memory',[sys,’/',['Go_operationaLmultipIe/Memory',13,'IC:[ -1  -I  -1  -1  -I  -I  -1  -1]']]) 
set_param([sys,'/’,['Go_operationaLmultiple/Memory‘,l3,'IC:[  -1  -1  -I  -1  -1  -1  -1  -1]']],... 
'xO'/M-l-l-l-l-l-l]’,... 
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’position\[l  15,150,155,180]) 


add_block(*buiIt-in/MATLAB  Fcn',[sys,7,['Go_operationaLmuItiple/Get 
expendable’,  1 3,'operationar,  1 3,'trajectory',  1 3,'gtoptram.m']]) 
set_param([sys,T,[’Go_operationaLmullipIe/Get 
expendable',  13,’operationar,13,'trajectory',  1 3,’gtoptram.m’]],... 

'orientation', 2,.„ 

'MATLAB  Fcn’,*gtoptrani',... 

'Output  Width’,'?’,... 

'position', [  1 10,55, 160,85]) 

add_block('buiIt-in/Constant',[sys,'/',’Go_operationaLmultipIe/oper_duration']) 

set_param([sys,'/’,'Go_operationaI_muItipIe/oper_duration'],.., 

’orientation',2,... 

'Value','oper_duration',... 

'position', [280, 75,375,95]) 

add_bIock('built-in/Mux’,[sys,'/','Go_operationaLmuItiple/Mux7’]) 

set_param([sys,'/','Go_operationaLmultiple/Mux7’],... 

’orientation',2,... 

’inputs’,’5',... 

’position',[200,33,240,I07]) 

add_block(*buiIt-in/Outport',[sys,'/',’Go_operationaLmuItipIe/out_r]) 

set_param([sys,’/','Go_operationaLmuItipIe/ouLr],... 

’position',[420, 155,440, 175]) 

add_bIock('buiIt-in/Inport',[sys,'/','Go_operationaLmuItiple/Time’]) 

set_param([sys,'/','Go_operational_muItiple/Time'],... 

'orientation',2,... 

'position',[330, 15,350,35]) 

add_bIock(’built-in/Note’,[sys,'/’,'Go_operationaLmuItipIe/BLOCK:Go_operationaLmuItipIe’]) 

set_param([sys,'/','Go_operationa!_muItipIe/BLOCK:Go_operationaLmultiple’],... 

'position',[540, 125,545, 130]) 

add_block('built-in/Inport*,[sys,'/’,’Go_operationaLmuItipIe/OperationaI  Times’]) 
set_param([sys,'/’,’Go_operationaLmuItipIe/OperationaI  Times’],... 

'orientation’,2,... 

’Port’,’2’,... 

'position', [5 15,45,535,65]) 

add_bIock('built-in/Inport',[sys,’/’,['Go_operationaLmultipIe/Expendable  positions 13,’&  velocities']]) 
set_param([sys,'/',['Go_operationaLrnuItipIe/ExpendabIe  positions  ’,13,’&  velocities']],... 
'orientation’,2,... 

’Port’,'3’,... 

’position’,[435,60, 455,80]) 

addJine([sys,’/','Go_operationaLmuItipIe'],[l60,165;415,165]) 

add_line([sys,’/’,'Go_operationaLmuItipIe’],[270,165;270,100;245,100]) 

addJine([sys,'/’,'Go_operationaLmuItiple’],[275,85;245,85]) 

add  Jine([sys,'/’,'Go_operationaLmuItipIe’],[  195,70;  165,70]) 

add  Jine([sys,’/’,'Go_operationaLmuItiple’],[  1 05,70;70,70;70, 1 65 ;  1 1 0, 1 65]) 

addJine([sys,’/’,’Go_operationaLmuItipIe'],[325,25;290,25;290,40;245,40]) 

addJine([sys,’/','Go_operationaLmuItip!e’],[510,55;245,55]) 

addJine([sys,’/',’Go_operationaLmu!tiple’],[430,70;245,70]) 
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set_param([sys,T/Go__operationaLmultiple’],... 

'Mask  Display’»Time  \n\nOperationaI  OperAn  Times  Flags  \n 

Expendable  \n  position/velocities  ') 


%  Finished  composite  block  'Go_operationaLmultiple'. 

set_param([sys//’,’Go_operationaLmuItipIe’],... 

'position^  1 3 1 5,885, 1435,955]) 


%  Subsystem  'Launch^data'. 
new_system([sys,’/',’Launch_data’]) 

set_param([sys,V','Launch_data'],‘Location*,[245,305,985,640]) 

add_block('built-in/Look  Up  Table',[sys,T,['Launch_data/Look-upM3,’IN:Launch  thetaM3,’OUT:Launch 
Phi’]]) 

set_param([sys,’/',['Launch_data/Look-up',13/IN:Launch  theta',I3,'OUT:Launch  Phi’]],... 

’orientation’,2,,.. 

'Input_Values’,'thetaJaunchJu’,... 

’Output_Values’,'phiJaunchJu',.., 

’position',[230,128,260,152]) 

add_block('built-in/Product',[sys,’/*,’Launch_data/m2 1’]) 
set_param([sys,’/',’Launch_data/m2r],... 

'orientation', 2,.., 

’position*,[390,130,4I5,150]) 

add_bIock(’buiIt-in/Constant’,[sys,7’,’Launch_data/57.3']) 

set_param([sys,'/','Launch_data/573'],... 

'orientation',2,... 

’Value’,'57.3’,... 

'position’,[450, 140,490, 160]) 

add_block('buiIt-in/Sum',[sys,V',’Launch_data/Sum24']) 
set_param([sy  s,’/  ,’Lau  nch_data/S  um24'] , . . . 

'orientation',2,... 

'position’,[505, 123,530, 147]) 

add_block('built-in/Inport',[sys,'/’,'Launch_data/Missile  theta']) 
set_param([sys,’/','Launch_data/MissiIe  theta'],... 

'orientation',2,... 

'position', [755, 235,775,255]) 

add_block('built-in/Product',[sys,'/’,'Launch_data/m23']) 

set_param([sys,'/’,’Launch_data/m23’],... 

'orientation',2,... 

’position',[585, 130,6 10, 150]) 

add_block('built-in/Constant',[sys,'/',*Launch_data/trackerstd']) 

set_param([sys,7',’Launch_data/trackerstd'],... 

'orientation’,2,... 

’Value’,'trackerstd’,... 

'position',[805, 134,870, 156]) 
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add_block(’buiIt-in/Inport\[sys»7,’Launch_ciata/Missile  phi']) 
set_parain([sys//’,’Launch_data/Missile  phi’],... 

’orientation', 2,... 

’Port’,’2’,... 

'position’,(5 15,250,535,270]) 

add_block('built-in/Look  Up  Table’,[sys,’/’,[’Launch_data/Look-up’,13,'IN:  Missile 
Theta',  1 3, 'OUT:  Launch',  13,’  theta’]]) 

set_param([sys,’/’,[’Launch_data/Look-up',13,'IN:  Missile  Theta',  13,’OUT:Launch',  13,’  theta’]],... 

'orientation', 2,... 

'Input_Va!ues’,’theta_missileJu’,... 

'Output_Values’,’thetaJaunchJu',... 

’position’, [335,128,365,152]) 

add_bIock('built*in/Outport',[sys,’/',’Launch_data/Launch  data’]) 
set_param([sys,’/',’Launch_data/Launch  data'],... 

’orientation',2,... 

’position', [50, 220,70,240]) 

add_bIock(’buiIt-in/Mux',[sys,'/','Launch_data/Muxl4’]) 

set_param([sys,’/’,’Launch_data/Muxl4’],... 

*orientation',2,... 

’inputs’, '5',... 

’position',[120,196,150,264]) 

add_block('buiIt-in/Look  Up  TabIe',[sys,’/’,[’Launch_data/Look-up',  13,’IN:Missile  Theta’,  13, 'OUT:  Time-to- 
target']]) 

set_param([sys,'/’,[’Launch_data/Look-up’,!3,'IN:MissiIe  Theta’,  13, 'OUT:  Time-to-target’]],... 
’orientation’,2,... 

'Input_VaIues’,’theta_missiIeJu',... 

'Output_VaIues','timeJu'.... 

'position', [605,168,635,192]) 

add_block('buiIt-in/White  Noise’,[sys,'/',['Launch_data/White  Noise',  1 3,'6’]]) 
set_param([sys,’/’,[’Launch__data/White  Noise',  13,'6’]],... 

’orientation',2,... 

'Seed’,'noiseseed(6)’,... 

'position', [775, 70.795,90]) 


%  Subsystem  ['Launch_data/hoId5’,  1 3 ,'sample=.25'] . 
new_system([sys,’/',[’Launch_data/hoId5’,13,'sample=.25']]) 

set_param([sys,’/’,[’Launch_data/hoId5’,  1 3,'sampIe=,25']],'Location’,[5 11,151 ,9 15,322]) 

add_bIock(’buiIt-in/ZerO“Order  HoId’,[sys,'/’,[’Launch_data/hoId5’,  1 3,'sample=.25/ZerO“Order’,  1 3, 'Hold']]) 
set_param([sys,’/’,['Launch_data/hold5’,13,’sample=.25/Zero-Order’,13,’HoId']],.,. 

'Sample  time’.’Ts’,... 

’position’,[100, 29, 135,61]) 

add_block('built>in/Gain’,[sys,'/’,['Launch_data/hold5’,13.’sample=.25/Gain']]) 

set_param([sys,’/’,['Launch_data/hold5’,13,’sampIe=:.25/Gain']],... 

•Gain’,'l/Ts’.... 

’position',[285, 33,325,77]) 
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add_bIock('built-in/Integrator\[sys,7‘,[’Launch_data/hoId5’,13/sample=.25/Integrator’]]) 

set_parani([sys//',['Launch_data/hoId5\I3,’sampIe=,25/Integrator']],... 

’position’, [235,42, 260,68]) 

add_blockCbuilt-in/Sum',[sys,'/',['Launch_data/hold5',13,'sample=.25/Sum’]]) 

set_param([sys,7’,[’Launch_data/hoId5',l3,’sample=.25/Sum’]],... 

’inputs','+-’,... 

’position’, [190, 37,210,68]) 

add_bIock(’built-in/Unit  DeIay’,[sys,’/’,[’Launch_data/hoId5’,  I3,’sample=.25/Unit  Delay’]]) 
set_paranri([sys,'/’,['Launch_data/hoId5’, 1 3,’sample=:.25/Unit  Delay’]],... 

'Sample  time’,’Ts’,...  , 

'position',[90,93, 140,1 17]) 

add_block(’built-in/Inport’,[sys,’/’,[’Launch_data/hoId5',13,’sample=.25/input’]]) 

set_param([sys,’/’,['Launch_data/hold5',13,’sample=.25/input’]],... 

’position’,[25,35,45,55]) 

add_block('built-in/Outport’,[sys,’/’,[’Launch_data/hold5’,13,’sampIe=.25/output’]]) 
set_param([sys,7’,[’Launch_data/hold5',  1 3,’sample=.25/output']],... 

’position’, [345,45,365,65]) 

addJine([sys,7',[’Launch_data/hold5',13,'sample=.25']],[330,55;340,55]) 
addJine([sys,'/',[’Launch_data/hold5’,13,’sample=.25']],[265,55;280,55]) 
addJine([sys,'/',[’Launch_data/hold5’,l3,’sample=.25']],[215,55;230,55]) 
addJine([sys,'/',['Launch_data/hold5’,13,’sampie=.25’]],[  145, 105;  165, 105;  165,60;  185,60]) 
addJine([sys,'/’,[’Launch_data/hold5’,13,’sample=.25’]],[  140,45;  185,45]) 
addJine([sys,’/',[’Launch_data/hold5’,13,’sample=.25’]],[50,45;95,45]) 
add_line([sys,'/’,['Launch_data/hold5’,13,'sampIe=.25’]],[65,45;65,i05;85,105]) 
set_param([sys,'/’,[’Launch_data/hold5',13,’sample=.25’]],.,. 

'Mask  Display’,’p]ot(0,0,100,100, [90,70,50,30,10], [60, 40, 80, 30, 20])',... 

'Mask  Type’, 'First-Order  Hold',... 

’Mask  Dialogue',’First-Order  HoldlSample  Time:') 
set_param([sys,'/’,['Launch_data/hold5',  1 3,'sample=:.25']],... 

'Mask  TransIate*,’Ts=@  1 ;',... 

'Mask  Help',’Implements  a  First-Order  sample-and-hold  latch  operating  at  the  sampling 
interval  you  specify.',... 

'Mask  Entries',’.25V’) 


%  Finished  composite  block  ['Launch_data/hold5’,13,'sample=.25’]. 

set_param([sys,'/’,[’Launch_data/hold5’,i3,’sample=.25']],... 

'orientation',2,... 

’position’,[695,64, 730,96]) 

add_block('buiIt-in/Note',[sys,’/',’Launch_data/BLOCK:  Launch_data']) 
set_param([sys,’/’,'Launch_data/BLOCK:  Launch_data’],... 

’position',[255,3 10,260,3 15]) 
addJine([sys,’/’,’Launch.data’],[750,245;155,245]) 
addJine([sys,'/','Launch_data'],[685,245;685,180;640,180]) 
add  Jine([sys,’/','Launch.data’],[600, 1 80;540, 1 80;540,230;  155,230]) 
add  Jine([sys,'/',’Launch_data’],[560,245;560, 130;535, 130]) 
addJine([sys,’/’,'Launch^data’],[580,l40;535,140]) 
addJine([sys,’/',’Launch_data’],[500,135;420,135]) 
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addJine([sys,7;Launch_data’],[690.80;655,80;655J35;615,l35]) 

addJine([sys//’/Launch_data’],[800,145;6l5,145]) 

addJine([sys;/’;Launch^data’],[770,80;735,80]) 

addJine([sys;/’;Launch^data'],(330,l40;295,I40;295,215;155,215]) 

add  Jine([sys;/’;Launch_data’],[225, 140;  1 80, 140;  1 80,200;  155,200]) 

add  Jine([sys,r,'Launch^data’],[445, 150;435, 145;420, 1 45]) 

add  Jine([sys,r  ,‘Launch,data’],[385, 140;370, 140]) 

add  Jine([sys,T,'Launch_data’],[330, 140;265, 140]) 

addJine([sys,'/’,'Launch_data‘],[l  15,230;75,230]) 

addJine([sys,T,'Launch_data'], [510,260;  155,260]) 

set_param([sys,'/’,Launch_data'],... 

'Mask  Display','Missile  theta  \n  Launch  data\nMissile  phi 


%  Finished  composite  block  'Launch_data*. 

set_param([sys,T,’Launch_data'],... 

’position',[880,8 13,980,862]) 


%  Subsystem  'MissiIeVeLSeen_by_A//C'. 
new_system([sys,7’,MissiieVeI_Seen_by-A//C']) 

set_param([sys,'/','MissileVeI_Seen_by_A//C’],’Location',[52, 105, 1 178,93 1]) 

add_block('buiIt-in/Demux’,[sys,7','MissiIeVe!_Seen_by_A//C/D5']) 

set_param([sys,'/’,MissiIeVeI_Seen_by-.A//C/D5'],... 

’orientation’,!,.,. 

’outputs',’2',... 

’position’,[785,70,825,110]) 

add_block('built-in/Inport’,[sys,7’,'MissileVeLSeen_by_A//C/AC  velocity  (z,x)']) 
set_param([sys,7',MissileVeLSeen_by-A//C/AC  velocity  (z,x)'],... 

'orientation*,  1,.., 

’position',[795,35,8 15,55]) 

add_block(’built-in/Derivative’,[sys,'/’,’MissileVeLSeen_by_A//C/dt2']) 

set_param([sys,’/',MissileVeLSeen_by-.A//C/dt2'],... 

’orientation',2,... 

'position',[645, 175,675, 195]) 

add_bIock(’built-in/Derivative',[sys,’/’,’MissileVeLSeen_by_A//C/dt’]) 

set_param([sys,7',MissileVeLSeen_by«-A//C/dt'],... 

’orientation’,2,... 

'position', [745,220,775, 240]) 

add_block('built-in/Sum',[sys,'/','MissileVeLSeen_by_A//C/Sum20']) 

set_param([sys,’/',’MissileVeLSeen_by_A//C/Sum20’],... 

’orientation',2,... 

'inputs’,’+-*,... 

’position',[630,2 10,650,230]) 

add_block('built-in/Product’,[sys,'/','MissiIeVeLSeen_by_A//C/m27']) 

set_param([sys,'/’,'MissileVeLSeen_by-A//C/m27'],... 

'orientation',2,... 
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’position\[570, 205, 595,225]) 


add_block('built-in/Product',[sys,7','MissileVeLSeen3y-A//C/m28']) 
set_param([sys,T,‘MissileVeLSeen_by-A//C/m28'],.- 
'orientation', 2,... 

'position',[565,l70,590,I90]) 

add_block('buiIt-in/Derivative',[sys,T,'MissiIeVeLSeen_by_A//C/dtl’]) 

set_param([sys,'/',’MissileVeLSeen_by_A//C/dtr],... 

’orientation',2,... 

’position’,[670, 145,700, 1 65]) 

add_bIock('buiIt-in/Demux’,[sys,7,’MissiIeVeLSeen_by_A//C/Demux6']) 

set_param([sys,7,'MissileVeLSeen_by_A//C/Demux6'],... 

'orientation’,2,... 

'outputs’, '3',... 

'position', [830, 243,870,297]) 

add_block(’built-in/Sum',[sys,'/',’MissiIeVeI_Seen_by_A//C/Sum22']) 

set_param([sys,’/',’MissiieVeLSeen_by_A//C/Sum22'],... 

'orientation’,2,... 

'inputs',’+-’,.,. 

‘position’, [615,125,635,145]) 

add_bIock(’buiIt-in/Product’,[sys,7’,’MissiIeVeLSeen_by_A//C/m26’]) 

set_param([sys,’/','MissileVeLSeen_by_A//C/m26'],... 

’orientation',2,... 

•position’, [555, 125 ,580,145]) 

add_block('built-in/Sum',[sys,'/','MissileVeLSeen_by_A//C/Sum2r]) 

set_param([sys,'/','MissiIeVeLSeen_by_A//C/Sum2r],... 

'orientation',2,... 

'inputs’, 

'position’,[490, 127,5 10, 163]) 

add_block('built-in/Outport’,[sys,‘/',[’MissileVeLSeen_by_A//C/ReIative  velocity  ',  13,’w//  noise']]) 
set_param([sys,'/',['MissileVeI_Seen_by_A//C/Relati ve  velocity  ',  1 3,'w//  noise']],... 

'orientation',2,... 

'position',[60, 1 65,80, 1 85]) 

add_block(’buiIt-in/Fcn',[sys,’/',’MissileVeLSeen_by-A//C/Fcnl5’]) 

set_param([sys,’/’,'MissiIeVeLSeen_by_A//C/Fcnl5'],... 

'orientation',2, ... 

’Expr','sqrt(u[  I  ])’,... 

’position’,[365, 133,450, 157]) 

add_block(*built-in/Product',[sys,’/','MissiIeVeLSeen_by_A//C/m25']) 

set_param([sys,'/’,'MissiIeVeLSeen_by-.A//C/m25’],... 

’orientation',2,.., 

'position',  [200, 1 90,225,2 1 0]) 

add_block('built-in/Constant',[sys,'/’,'MissileVeLSeen_by_Ay/C/missileveIstd']) 

set_param([sys,’/’,'MissileVeLSeen_by^A//C/missileveIstd'],... 

'orientation',2,... 

'Vaiue’,’missilevelstd’,... 
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'position\[265, 205, 345,225]) 

acid_bIock('buiIt-in/Sum’,[sys,'/','Mi$siIeVeLSeen_by_A//C/Sum25']) 

set_param([sys,T,'MissileVel_Seen_by_A//C/Sum25'],... 

’orientation', 2,... 

’position’, [  1 40, 157, 1 60, 1 93] ) 

add_block(’built‘-in/Inport’,[sys,’/’,['MissileVeLSeen_by_A//C/Missiie  position  ’,l3,’(x,y,z)']]) 
set__param([sys,’/’,[’MissileVeLSeen_by_A//C/Missile  position  1 3,'(x,y ,z)']],... 

'orientation', 2,... 

'Port', ’2’,... 

'position', [930,260,950, 280]) 


%  Subsystem  ['MissileVei_Seen_by_A//C/hoId7’,13,'sample:.25’]. 
new_system([sys,'/’,[’MissileVeLSeen_by_A//C/hoId7’,l3,'sample:.25’]]) 

set_param([sys,’/',['MissileVeLSeen_by_A//C/hold7’,13,'sample:.25']],'Location', [51 1,151,915,322]) 

add_biock('buiIt-in/Zero-Order  HoId',[sys,'/',['MissileVel_Seen__by_A//C/hoId7*,  1 3, 'sample:. 25/Zero- 
Order’,  13,’Hold']]) 

set_param([sys,'/',[’MissileVeLSeen_by-.A//C/hoId7’,  13,'sample:. 25/Zero-Order',  13,'Hold']],... 

'Sample  time',’Ts’,... 

’position’,[  1 00,29, 1 35 ,6 1  ] ) 

add_block(’built-in/Gain',[sys,'/',[’MissileVeLSeen_by_A//C/hold7',13,'sampIe:.25/Gain’]]) 
set_param([sys,'/',['MissiIeVeLSeen_by_A//C/hold7',  1 3,'sample:.25/Gain’]],.,. 

‘Gain','l/Ts',... 

’position',(285,33,325,77]) 

add_bIock(’buiIt-in/Integrator’,[sys,’/',['MissileVeLSeen_by_A//C/hoId7',13,'samp!e:.25/Integrator']]) 

set_param([sys,'/’,[’MissileVeLSeen_by_A//C/hold7',I3,'sampIe:.25/Integrator']],... 

’position’,[235, 42, 260,68]) 

add_block('built-in/Sum’,[sys,'/',['MissileVeLSeen_by_A//C/hold7',I3,’sample:.25/Sum’]]) 

set_param([sys,'/',['MissileVeLSeen_by_A//C/hold7',13,'sampIe:.25/Sum*]],... 

’inputs','^-’,... 

'position',[  190,37,2 1 0,68]) 

add__block(’built-in/Unit  Delay',[sys,'/',['MissileVeLSeen_by-A//C/hold7',13,'sampIe:. 25/Unit  Delay']]) 
set_param([sys,’/’,['MissiIeVeLSeen__by_A//C/hoId7’,  1 3,’sample:.25/Unit  Delay’]],... 

'Sample  time','Ts’,... 

’position',[90,93,140,117]) 

add_bIock(’buiIt-in/Inport',[sys,'/’,[’MissileVeLSeen_by_/V/C/hoId7',13,’sample:.25/input']]) 

set_param([sys,’/',[’MissileVeLSeen_by_A//C/hold7',13,'sampIe:.25/input']],... 

’position', [25, 35, 45 ,55]) 

add_biock(’built-in/Outport',[sys,’/',[’MissiIeVeLSeen_by->A//C/hoId7',13,’sample:.25/output’]]) 

set_param([sys,'/',[’MissileVe]_Seen_by_A//C/hoId7’,13,’sample:.25/output’]],... 

'position', [345,45, 365,65]) 

addJine([sys,'/’,['MissileVel_Seen_by_A//C/hold7’,13,'sampIe:.25’]],[330,55;340,55]) 

addJine([sys,’/’,['MissileVeLSeen_by_A//C/hold7’,13,’sample:.25’]],[265,55;280,55]) 

addJine([sys,’/',['MissiIeVeLSeen_by_A//C/hoId7',13,*sample:.25']],[215,55;230,55]) 

addJine([sys,’/’,['MissileVeLSeen_by_A//C/hoId7',l3,'sampIe:.25’]],[145,105;165,105;165,60;185,60]) 
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addjine([sys, r, [’Missile  VeLSeen.by_A//C/hold7M  3;sample:.25’]],[  1 40,45;  185,45]) 
addJine([sys,'/’,['MissileVeLSeen_by_A//C/holdr,13,'sample:.25']],[50,45;95,45]) 
addJine([sys,’/’,['MissileVeLSeen_by_A//C/hoId7’,13,’sample:.25']],[65,45;65,105;85,105]) 
set_param([sys,'/’,['MissileVel_Seen_by_A//C/hold7',13,‘sample:.25’]],... 

'Mask  Display’,'plot(0,0, 100, 100,(90,70,50,30, 10],[60,40,80,30,20])’,... 

'Mask  Type',’First-Order  Hold',... 

'Mask  Dialogue','First-Order  HoldlSample  Time:') 
set_param([sys,'/', ['Missile  Vel_Seen_by_A//C/hold7',  1 3,’sample:.25']],... 

'Mask  Translate','Ts=@  1 ;',... 

'Mask  Help','Implements  a  First-Order  sample-and-hold  latch  operating  at  the  sampling 
interval  you  specify.',... 

'Mask  Entries’,’.25\/’) 


%  Finished  composite  block  ['MissileVel_Seen_by_A//C/hold7',13,’sample:.25’]. 

set_param([sys,’/',['MissileVeLSeen_by_A//C/hold7',l3,'sample:.25’]],... 

'orientation',2,... 

•position',[365,179.400,211]) 

add_block('built-inAVhite  Noise',[sys,’/',[’MissileVel_Seen_by_A//C/White  Noise’,  1 3,’8’]]) 
set_param([sys,'/', ['Missile Vel_Seen_by_A//CAVhite  Noise',  13,'8']],... 

'orientation',2,... 

'Seed’,'noiseseed(8)',... 

'position’,[445,185,465,205]) 

add_block('built-in/Note',[sys,'/’,'MissileVeLSeen_by_A//C/BLOCK:  MissileVel_Seen_by_A//C']) 
set_param([sys,'/','MissileVel_Seen_by_Ay/C/BLOCK;  MissileVel_Seen_by_A//C'],... 

'position',[3 15,300,320,305]) 

addJine([sys,’/',’MissileVeLSeen_by_A//C'],[825,250;792,250:792,230;780,230]) 

add_line([sys,’/','MissileVeLSeen_by_A//C'],[825,270;7 17,270;7 17, 1 85;680, 1 85]) 

addJine([sys,’/',’MissiIeVeLSeen_by_A//C'],[825,290:722,290:722,155;705,155]) 

addJine([sys,’/','MissileVeLSeen_by_A//C'],[360,145;302,145;302,165:165,165]) 

add_line([sys,’/','MissileVel_Seen_by_A//C’],[  195,200;  187,200;  1 87. 1 85;  165, 1 85]) 

addJine([sys.'/’,'MissileVeLSeen_by_A//C'],[360. 195;230, 195]) 

addJine([sys,’/’,'MissileVeLSeen_by_A//C'],[260.215;257,205;230,205]) 

add_line([sys,'/','MissileVel_Seen_by_A//C'],[440,195;405,195]) 

addJine([sys,’/','MissileVeLSeen_by_A//C'],[640, 1 85;595, 185]) 

addJine([sys.’/','MissileVeLSeen_by_A//C'],[630,185;630,175;595,175]) 

add_line([sys,'/','MissileVeLSeen_by_A//C'],[485,145;455,145]) 

addJine([sys,’/','Missile  Vel_Seen_by_A//C'],[625,220;625,2 1 0;600,2 1 0] ) 

add_line([sys,'/','MissileVel_Seen_by_A//C'],[625,220;600,220]) 

add_line([sys,'/','MissileVeLSeen_by_A//C'],[740.230;732,225;655,225]) 

addJine([sys,’/','MissileVeLSeen_by_A//C'],[665. 155;640, 140]) 

add_line([sys,’/’,'MissileVeLSeen_by_A//C'],[815,115;815,215;655,215]) 

addJine([sys,'/’,'MissiIeVeLSeen_by_A//C'],[795.115;795,130;640,130]) 

add_line([sys,'/','MissileVeLSeen_by_A//C'],[560, 1 80;547, 1 80;547, 145  ;5 15, 145]) 

addJine([sys,'/’,'MissileVeLSeen_by_A//C’],[565,215;525,215;515.155]) 

addJine([sys,’/','MissileVeLSeen_by_A//C'],[550, 135;5 15, 1 35]) 

addJine([sys,’/',’MissileVeLSeen_by_A//C'],[6 10, 135;585, 130]) 

addJine([sys,’/','MissileVeLSeen_by_A//C'],[610,135;585,140]) 

addJine([sys.’/’,'MissiIeVeLSeen_by_A//C'],[805,60;805,65]) 

addJine([sys,’/','MissileVel_Seen_by_A//C’],[135,175;85.175]) 

addJine([sys,’/','MissileVeLSeen_by-A//C’],[925,270;875,270]) 

set_param([sys,’/',’MissileVel_Seen_by_A//C'],... 
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‘Mask  DispIay'/AC  velocity  (z»x)  \n  Relative  VeIocity\nMissile  pos  (x,y,z)  ') 


%  Finished  composite  block  ’MissiIeVeLSeen_by_A//C. 

set_param([sys,T,’MissileVeLSeen_by-A//C']v.. 

’position\[655,29IJ90,349]) 

add_block(’built-in/Mux’,[sys,T/  Mux  1 1']) 
set_param([sys,7\'  Muxl  1'].... 

’orientation', 3,... 

’inputs’, ’5’,... 

’position’, [  1 171 ,970, 1269,990]) 

add_block('built-in/Mux',[sys,'/’,'MuxlO']) 
set_param([sys,7’,’Mux  10'],... 

'inputs', ’3’,... 

'position’,[2040,435,2070,465]) 


%  Subsystem  'HitCheck'. 
new_system([sys,’/',’HitCheck']) 

set_param([sys,’/’,’HitCheck’],’Location’,[  166,239,8 1 8,574]) 

add_block(‘buiIt-in/To  Workspace', [sys,’/*, 'Hi tCheck/Le ft  inboard  engine']) 
set_param([sys,'/’,’HitCheck/Left  inboard  engine'],... 

'orientation',2,... 

'mat-name’,’srlie’,... 

'buffer', '1000000000',... 

'position’,[340, 137,390, 153]) 

add_bIock('buiIt-in/To  Workspace’,[sys,’/’,’HitCheck/Right  inboard  engine’]) 
set_param([sys,'/’,’HitCheck/Right  inboard  engine'],... 

'orientation',2,... 

'mat*name',‘srrie’,... 

'buffer',' 1000000000’,... 

'position’,[3 10,107,360, 123]) 

add__bIock('built-in/To  Workspace',[sys,’/’,’HitCheck/Left  outboard  engine']) 
set_param([sys,’/’,’HitCheck/Left  outboard  engine'],... 

'orientation',2,... 

'mat-name’, 'srioe',... 

'buffer', ’1000000000’,... 

’position’,[280,77,330,93]) 

add_block(’built-in/To  Workspace’, [sys,’/’,’HitCheck/Cockpit’]) 
set_param([sys,'/’,’HitCheck/Cockpit'],... 

'mat-name', 'srcp',... 

'buffer’, ’1000000000’,... 

’position’,[520, 107,570, 123]) 

add_block('built-in/Demux',[sys,’/’,’HitCheck/Demux3']) 

set_param([sys,’/’,'HitCheck/Demux3’],... 

’outputs’,'8’,... 
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’position\[400, 1 67,440,253]) 

add_block('built-in/MATLAB  Fcn',[sys,7,’HitCheck/ifend.m’]) 
set_param([sys,7’,’HitCheck/ifend.m’],... 

'MATLAB  Fcn’,’itend’,... 

•Output  Width’,*8’,... 

‘position',[330, 195,380,225]) 

add_blockCbuilt-in/Mux',[sys,'/',’HitChecic/Mux4']) 

set_param([sys,'/’,'HitCheck/Mux4'],... 

’inputs‘,‘3’,.,. 

•position’,[275, 170,305,230]) 

add_block('built-in/Constant',[sys,'/',‘HitCheck/LethaI  distance']) 
set_param([sys,'/*,'HitCheck/Lethal  distance'],... 

'Value’,'lethaldist',... 

'position',[  155, 1 89,225,21 1]) 

add_block('built-in/Inport',[sys,'/VHitCheck/AC  position  (x,y,z)']) 
set_param([sys,'/’,‘HitCheck/AC  position  (x,y,z)'],... 

•position’, [55, 170,75,190]) 

add_blockCbuilt-in/Inport',[sys,’/‘,'HitCheck/Missile  position  (x,y,z)']) 
set_parani([sys,7’,'HitCheck/Missile  position  (x,y,z)'],... 

’Porf,’2',... 

•position',[70,220, 90,240]) 

add^blockCbuilt-in/Stop  Simulation',[sys,'/’,['HitCheck/Stop  simulation',  13, 'if  non-zero',  13,"]]) 
set_param([sys,'/',[’HitCheck/Stop  simulation’,  13, 'if  non-zero',  13,"]],... 
'position',[520,224,570,266]) 

add_bIock(’buiIt-in/To  Workspace', [sys,'/','HitCheck/Right  outboard  engine']) 
set_param([sys,'/*,’HitCheck/Right  outboard  engine'],... 

'mat-name', 'srroe',... 

•buffer', '1000000000',... 

'position',[525,77, 575,93]) 

add_bIock(’built-in/To  Workspace',[sys,7','HitCheck/Empenage']) 
set_param([sys,’/’,’HitCheck/Empenage'],... 

’mat-name','sremp',... 

•buffer’,'1000000000',... 

•position',[520, 137,570, 153]) 

add_bIock('built-inA'o  Workspace', [sys,’/','HitCheck/Center  of  gravity']) 
set_param([sys,'/’,'HitCheck/Center  of  gravity'],... 

'mat-name', 'srcg',... 

•buffer',' 1000000000’,... 

'position', [525,167, 575,183]) 

add_block('built-in/Note’,[sys,'/','HitCheck/BLOCK;  HitCheck']) 
set_param([sys,'/','HitCheck/BLOCK:  HitCheck'],... 

'position’,[205 ,290, 2 10,295]) 
addJine([sys,'/','HitCheck’],[230,200;270,200]) 
addJine([sys,'/’,'HitCheck’],[445,245;515,245]) 
addJine([sys,’/’,’HitCheck'],[445,235;475,235;475,175;520,175]) 
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add  Jine([sys,r;HitCheck’],[445,225;470.225;470, 145;5 15  J45]) 

addJine([sys;/';HitCheck‘],[445,215;465,2l5;465,115;5l5,115]) 

addJine([sys,r;HitCheck’],[445,205;460.205;460,85;520,85]) 

addJine([sys,7/HitCheck'],[445,l95;455,I95;455,85;335.85]) 

add  Jine([sys;/’;HitCheck’],[445, 1 85;450, 1 85;450, 1 15;365, 115]) 

addJine([sys,7;HitCheck’],[445,175;445,145;395,l45]) 

addJine([sys;/’;HitCheck’],[385,210;395,210]) 

addJine([sys;/';HitCheck’], [310, 200;325, 2101) 

add  Jine([sys;/’;HitCheck’],[80, 1 80;270, 1 80]) 

addJine([sys;/’;HitCheck’],[95,230;245,230;245,220;270,220]) 

set_param([sys,7,'HitCheck’],... 

'Mask  Display', 'AC  position  (x,y,z)  \n\nMissile  position  (x,y,z)’) 


%  Finished  composite  block  'HitCheck'. 

set_param([sys,’/*,'HitCheck’],... 

*position',[855,107,995,158]) 


%  Subsystem  ’Reiative__angles_and_range’. 
new_system([sys,'/’,'ReIative_angIes_and_range']) 

set_param([sys,’/’,’Relative_angles_and_range’l,’Location', [45, 102,620,460]) 

add_bIock('buiIt-inyTo  Workspace', [sys,'A'Relative_angles_and_range/A//C  -  missile  slant  range’]) 
set_param([sys,’/’,’ReIative_angles_and_range/A//C  -  missile  slant  range’],... 

'mat-name', 'amslantrange',... 

'buffer',’1000000000’,... 

’position',[425,2 13,545,227]) 

add_block(’built-in/Outport’,[sys,7,’Relalive_angles_and_range/Missile  phi’]) 
set_param([sys,'/','Relative_angles_and_range/Missile  phi’],... 

'position', [455,85,475, 105]) 

add_block('built-in/Inport*,[sys,'/’,'Relative_angles_and_range/AC  position  (x,y,z)’]) 
set_param([sys,’/','Re!ative_angIes_and_range/AC  position  (x,y,z)’],,.. 

’Port','2',... 

‘position',[65, 140,85, 160]) 

add_block(’built-in/Inport',[sys,'/’,'Relative_angIes_and_range/MissiIe  Position  (x,y,z)']) 
set_param([sys,'/','Relative_angles_and_range/Missile  Position  (x,y,z)’],... 

’position’,[65, 105,85, 125]) 

add_block('built-in/Mux',[sys,'/’,’ReIative_angles_and__range/Mux6']) 

set_param([sys,’/','Relative_angles_and_range/Mux6'],... 

'inputs',’2',... 

'position', [  140,99, 170, 1 66]) 

add„block('built-in/MATLAB  Fcn',[sys,’/',['Relative_angles_and_range/Relative  Angle',  13, 'between 
A//C,l3,’and  missile',  I3,'acmangle.m']]) 

set_param([sys,'/',['Relative_angles_and_range/Relative  Angle',  13,’between  A//C',  13,'and 
missile',  13,'acmangle.m’]],... 

'MATLAB  Fcn','acmangle',... 

'Output  Width’,’3*,... 
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’position\[200, 120,250,150]) 

add_bIock('built-in/Deniux\[sys,'/’,'ReIative_angIes_and_range/Demux']) 

set_param([sys//','Relative_angles_and_range/Demux'],... 

’outputs\'3’,... 

’position’,[280,l  19,320,151]) 

add_bIock(’built-in/Outport’,[sys,7,’ReIative_angIes_and_range/Missile  theta']) 
set_param([sys,V','Reiative_angles_and_range/MissiIe  theta'],... 

'Port', '2',... 

’position',[485, 125,505, 145]) 

add_block('buiIt-in/Outport',[sys,’/',’Relative_angIes_and_range/Missile  Range']) 
set_param([sys,’/','ReIative_angles_and_range/MissiIe  Range’],... 

'Port', '3',... 

’position’,[420,250,440,270]) 

add_block('buiIt-inyTo  Workspace’,[sys,’/’,['Relative_angles_and_range/Theta  angle  between  ’,13,’  A//C  and 
missile']]) 

set_param([sys,’/’,[’ReIative_angles_and_range/Theta  angle  between  ’,13,’  A//C  and  missile']],... 

'mat- name’, 'acmtheta^end',... 

’buffer',’1000000000’,... 

•position’, [455, 165, 580, 185]) 

add_block('built-in/To  Workspace',[sys,'/',['Relative_angles_and_range/Phi  angle  between’,  13,’A//C  and 
missile  ’]]) 

set_param([sys,’/',[’Relative_angIes_and_range/Phi  angle  between',  1 3, 'A//C  and  missile  ’]],... 

'mat-name', 'acmphi_end',... 

'buffer',’ 1000000000’,,.. 

’position',[400, 4 1,480,59]) 

add_block(’built-in/Note’,[sys,'/','Relative_angIes_and_range/BLOCK:  Relative_angles_and_range’]) 
set_param([sys,*/’,’ReIative_angles_and_range/BLOCK:  Re[ative_angles_and_range’],... 
’position’,[220,300,225,305]) 

addJine([sys,'/’,’Relative^angIes^and^range'],[325,135;405,135;405,175;450,l75]) 

addJine([sys,'/’,'Relative_angles_and_range'],[325,145;365,145;365,220;420,220]) 

addJine([sys,'/','Reiative_angles_and_range’],[325,125;365,l25;365,50;395,50]) 

add_line([sys,'/’,'ReIative_angles_and_range’], [255,1 35  ;275, 135]) 

addJine([sys,'/’,'Relative_angles_and_range’],[175,135;195,135]) 

add  Jine([sys,’/’,’ReIative_angles_and_range’], [90,1 15;  135, 1 15]) 

addJine([sys,’/',’Relative_angles.and_range’],[325,125;365,125;365,95;450,95]) 

addJine([sys,’/',’ReIative_angles_and_range’],[325,135;480,135]) 

addJine([sys,’/’,'ReIative.angles^and^range’],[325,145;365,l45;365,260;415,260]) 

addJine([sys,'/','Relative_angles_and_range'],[90,l50;135,150]) 

set_param([sys,'/’,’Relative_angIes_and_range'],... 

'Mask  Display',’  Missile  Missile  PhiVnPosition  (x,y,z)  \n 

Missile  Theta\n  AC  position  Missile  \n  (x,y,z)  Range  (rel)’) 


%  Finished  composite  block  ’Relative_angles_and_range’. 

set_param([sys,’/','Relative_angles_and_range'],... 

'position', [620,606, 785,664]) 
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%  Subsystem  'Missile^Control'. 


new_system([sys//’,'MissiIe_Contror]) 

set_param([sys,7','Missile_Contror],’Location\[32,291,ll42,851]) 

add_block('built-in/Inport’,[sys//',[’MissiIe_Control/Missile  M3/positionM3,’(x,y,z)‘]]) 
set_param([sys//\['Missile_ControI/Missile  M37position',13/(x,y,z)’]],... 

’Port’;3',... 

’position’, [105,155,125, 175]) 

add_block(’buiIt-in/Inport',[sys,’/’,’Missile_Control/mrange’]) 
set_param(  [sy  s,'/’  ,'MissiIe_Con  trol/mrange'] , . .  . 

’Port‘,’2’,... 

’position’, [305, 50,325,70]) 

add_block(’buiIt-in/Product’,[sys,'/’,’MissiIe_Control/m3']) 

set_param([sys,’/’,'Missile_ControI/m3’],... 

•position’,[385, 135, 410,155]) 

add_bIock('built-in/Fcn’,[sys,’/’,'Missile_Gontrol/Fcn  11’]) 
set_param([sys,’/','MissiIe_Control/Fcn  1 1’],... 

'Expr’,’(l/u[l  ])’,... 

’position’, [520,80, 560,100]) 

add_bIock('built-in/MATLAB  Fcn’,[sys,‘/',’Missile_Control/testnan.m’]) 
set_param([sys,7’,'Missile_Control/testnan.m*],... 

’MATLAB  Fcn’,’testnan’,... 

’position’, [590, 75,640, 105]) 

add_bIock(’buiIt-in/Suni',[sys,’/’,'MissiIe_Control/Sum4']) 

set_param([sys,’/',’Missile_Control/Sum4'],... 

’inputs', 

’position’,[335, 142,355, 178]) 

add_block(’built-in/Mux’,[sys,’/’,'Missile_ControI/Mux']) 

set_param([sys,'/',’MissiIe__Control/Mux’],... 

'inputs’, ’2’,... 

’position’, [155, 114,185,181]) 

add_block('built-in/MATLA'B  Fcn',[sys,*/’,’Missile_Control/testzero.m’]) 
set_param([sys,'/','Missile_Control/testzero.m’]„.. 

'MATLAB  Fcn’,'testzero‘,... 

’position',[415, 75,465, 105]) 

add_block(’buiIt-in/Gain',[sys,’/’,’MissiIe_ControI/Gainr]) 

set_param([sys,’/’,'Missile_Control/Gainr],... 

’Gain’,'.5’,... 

’position’,[425, 135,445, 155]) 

add_block(’buiIt-in/Transfer  Fcn’,[sys,'/',[’Missile_Control/Transfer  ',13,'Fcn9']]) 
set_param([sys,’/',[’Missile_Control/Transfer ',  1 3,'Fcn9’]],... 

'Numerator’,'[l  2  1]’,... 

'Denominator','[.0999  .632  1]’,... 

'position', [460, 1 26,580, 1 64]) 
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add_block(*built-in/Inport\[sys,7/MissiIe_Control/AC  position  (x,y,2)’]) 
set_param([sys//'/Missile_Control/AC  position  (x,y,z)’],... 

'position\[60, 120,80, 140]) 

add_block('built-in/Product\[sys,7','MissiIe_Control/mn4']) 

set_param([sys,'/',’Missile_Control/mn4'],... 

•position‘,[270,250,295,270]) 

add_block('built-inAVhite  Noise‘,[sys,7\['Missile„ControI/White  Noise',  13/4’]]) 
set_param([sys//’,['Missile_Control/White  Noise',  13/4']],... 
'Seed'/noiseseed(4)',... 

'position',[  150,245, 170,265]) 


%  Subsystem  ['Missile_Control/hold4',  13,'sample=.  1']. 
new_system([sys,'/’,['Missile_Control/hold4’,  1 3.'sample=.  1 ']]) 

set_param([sys,'/',['Missile_Control/hoId4',  1 3,‘sample=.  1  ’]], 'Location*,  [5 1 1 , 15 1 ,9 1 5 ,322]) 

add_block('built-in/Outport*,[sys,’/’,['MissiIe_Control/hold4’,13,’sampIe=,  1/output']]) 
set_param([sys,'/',['Missile_Control/hold4',13,’sample=.  1/output’]],... 

'position', [345,45, 365,65]) 

add_bIock('built-in/Inport',[sys,'/’,['MissiIe_Control/hold4',  1 3,’sample=.  1/input']]) 
set_param([sys,'/',[’Missile_Control/hold4’,  I3,'sample=.  1/input']],... 

'position',[25,35,45,55]) 

add_block('built-inAJnit  De!ay',[sys,'/',[’Missile_ControI/hold4’,13,’sampie=.  1/Unit  Delay']]) 
$et_param([sys,'/’,['Missile_Control/hold4',  13,'sample=.  1/Unit  Delay']],... 

'Sample  time’,'Ts',... 

’position',[90,93,140,117]) 

add_block(’built-in/Sum’,[sys,'/',[’Missile_Control/hold4',13,'sample=.  1/Sum’]]) 
set_param([sys,’/'.[’Missile_Control/hoid4’,13,’sample=.  1/Sum’]],... 

’inputs’/-!-’,... 

’position',[  190,37,2 10,68]) 

add_block(’built-in/Integrator’,[sys,’/’,['Missile_ControI/hold4',  1 3,'sample=.  1/Integrator’]]) 
set_param([sys,’/’,[’Missile_Control/hold4’,13,’sample=.l/Integrator’]],... 

'position', [235,42,260,68]) 

add_bIock('built-in/Gain’,[sys,’/’,['Missile_Control/hold4’,l  3, 'sample=.  1/Gain’]]) 
set_param([sys,’/',[’Missile_ControI/hoId4',l  3, 'sample=,  I/Gain’]],... 

’Gain’/l/Ts',... 

'position', [285,33, 325, 77]) 

add_block(’built-in/Zero-Order  Hold',[sys,'/',['Missile_ControI/hoId4’,13,’sample=.l/Zero-Order',13,'Hold’]]) 
set_param([sys//',['Missile_ControI/hold4',13,'sampIe=.l/Zero-Order',  13/Hold']],... 

'Sample  time’.'Ts’,... 

'position',[l00,29,135,61]) 

addJine([sys,’/’,['Missile_Control/hoId4’,l3,'sample=.r]],[50,45;95,45]) 
addJine([sys,’/’,[’Missile_ControI/hoId4',13,’sample=.r]],[65,45;65,105;85,105]) 
addJine([sys,'/’,['Missile_Control/hold4’,13,'sample=. !’]],[  140,45;  185,45]) 
addJine([sys,'/',['Missile_ControI/hold4’,13,’sample=.l’]],[145,105;165,l05;165,60;185,60]) 
addJine([sys,'/’,['Missile_Control/hold4’,i3,'sampIe=.r]],[2l5,55;230,55]) 
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addJine([sys//’,['MissiIe_Control/hold4’,l3/sampie=.r]],[265,55;280,55]) 

addJine([sys,7’,[*Missile_Control/hold4M3/sampIe=.r]],[330,55;340,55]) 

set_param([sys,'/',[’Missile_Controi/hold4M3/samp!e=.r]],... 

•Mask  Display';plot(0A100,l()0,[90,70,50,30,10],[60,40,80,30,20])’,... 

‘Mask  Type*, 'First-Order  Hold*,... 

*Mask  Dialogue*, ’First-Order  HoIdlSample  Time:') 
set_param([sys,’/',[*MissiIe_ControI/hold4',13,'sampIe=.l*]],... 

'Mask  Translate','Ts=@ . 

'Mask  Help’,’lmplements  a  First-Order  sample-and-hold  latch  operating  at  the  sampling 
interval  you  specify.*,... 

’Mask  Entries','.  IV’) 


%  Finished  composite  block  ['Missile_Control/hoId4',13,'sampIe=.r]. 

set_param([sys,*/*,[*Missile_Control/hoId4*,  1 3,'sample=.  1 ']],... 

*position’,[200, 239, 235,271]) 

add_bIock('buiIt-in/MATLAB  Fcn’,[sys,'/’,[’MissiIe_Control/Relative  Angle’,  13, 'between  LOS 
and',l3,'Bearing',l3,’relanglr.m']]) 

set_param([sys,'/’,[*Missile_Control/ReIative  Angle',  13,’between  LOS  and',13,’Bearing',l3,’relangir.m’]],.. 
'MATLAB  Fcn’,’relanglr’„.. 

'Output  Width’,’!’,... 

’position’,[225, 135,275, 165]) 

add_block('built-in/Sum’,[sys,’/','Missile_Control/sum5n’]) 

set_param([sys,'/',’MissiIe_Control/sum5n'],... 

•position’,[905, 138,930, 162]) 

add_block('built-in/Integrator’,[sys,’/*,[’MissiIe_Control/Integr’,13,’ator8']]) 

set__param([sys,'/’,['Missile_Control/Integr’,13,'ator8’]],... 

’position',[950, 135,970, 155]) 

add_bIock(’buiIt-in/Integrator',[sys,’/’,[*Missile_Control/Integr*,13,’ator7’]]) 

set_param([sys,’/',[*Missile_Control/Integr’,13,'ator7']],... 

'position’,[990, 135, 1010, 155]) 

add_block('built-in/Product’,[sys,*/','MissiIe_Control/mlO’]) 

set_param([sys,’/',’Missile_Control/mlO'],... 

’position',[1040,130, 1065,150]) 

add_block(’built-in/MATLAB  Fcn',[sys,*/’,'Missile_ControI/testnan.mJ]) 
set_param([sys,'/','Missile_Control/testnan.mJ]„.. 

'MATLAB  Fcn*,'testnan*,... 

’position’,[1085, 125,1 135,155]) 

add_biock('built-in/Constant',[sys,*/',’Missile_Control/MThrust_Duration’]) 

set_param([sys,’/',’Missile_Contro!/MThrust_Duration’],... 

*  Vaiue',’MThrust_Duration', .. . 

*position',[885,296, 1005,3 14]) 

add_bIock('built-inyConstant’,[sys,*/*,’MissiIe_Control/shottime’]) 

set_param([sys,'/*,'Missile_Control/shottime’],... 

’Value', 'shottime’,... 

’position’, [915, 267,1005, 283]) 
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add_block(‘built-in/Inport\[sys,7,’Missile_ControI/in_4’]) 

set_param([sys//’,'Missile_Control/in_4'],... 

Torf;4\... 

’position\[1045.235, 1065,255]) 

add_block('built-in/Mux',[sys//*,'Missile_ControI/Mux5’]) 

set_param([sys,V\'MissiIe_ControI/Mux5’],... 

’inputs'/3\... 

•position’d  1095,230, 1 130,320]) 

add_bIock('built-in/MATLAB  Fcn',[sys,*/',’Missile_ControI/missilego.ni’]) 
set_param([sys,7',’MissiIe_ControI/missilego.m’],... 

'MATLAB  Fcn’,‘missIego’,.,. 

'OutputWidthVl\... 

•position ,[  1 185,260,1235,290]) 

add_blockCbuilt-inyTo  Workspace',[sys,7’,'MissiIe_Control/test']) 
set_param([sys,'/‘,‘Missile_ControI/test'],... 

'mat-name','missilever,... 

•buffer’,’ 1000000000',... 

'position’,[  1 295,307, 1 375,323]) 

add_block(’built-in/Product’,[sys,’/’,'Missile_ControI/ml7’]) 

set_param([sys,‘/’,'MissiIe_Control/ml7'],... 

•position’,[1320,195,I345,2I5]) 

add_bIock('buiIt-in/Integrator',[sys,'/’,’MissiIe_ControI/Integrator3’]) 

set_param([sys,’/',’Missile_Control/Integrator3'],... 

•position’,[1385,195,1405,215]) 

add_bIock('built-in/Integrator',[sys,’/’,'Missiie_Controi/Integrator2’]) 

set_param([sys,'/',’Missile_Control/Integrator2’],... 

•position’, [1385,135,1405,155]) 

add_block('buiIt-in/Product’,[sys,’/',’MissiIe_Control/m  1 8']) 
set_param([sys,’/’,*Missile_Control/ml8’],... 

'position',[l320, 135,1345,155]) 

add_block('buiIt-in/Fcn',[sys,'/’,’MissiIe_ControI/Fcn2’]) 

set_param([sys,'/’,'Missile_Contro!/Fcn2'],... 

’position’,[1200, 130,1285, 150]) 

add_bIock('built-in/Fcn’,[sys,’/’,’MissiIe_ControI/Fcn3']) 

set_param([sys,’/’,’Missiie_Control/Fcn3'],... 

’Expr',’cos(u[l  ])’,... 

’position’,!  1205, 198, 1 290,222]) 

add_block('buiIt-in/Outport’,[sys,’/',’Missile_Control/sin  pos’]) 
set_param([sys,’/’,'Missile_ControI/sin  pos'],... 

•position’, [1465, 140,1485, 160]) 

add_block(’built-in/Outport',[sys,’/',’MissiIe_ControI/out_2’]) 

set_param([sys,'/',’Missile_Control/out_2'],... 

•Port',’2',... 
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'position'.[  1465, 190, 1485,2 101) 

add_block(’built-in/Product',[sys,'/','Missile_Control/mn5']) 

set_param([sys,7','Missile_Control/mn5'],... 

’inputs',’3',... 

'position',[825,207,850,263]) 

add_block('built-in/Constant',[sys,V',['Missile_ControI/MThrustN  Standard  ',13,'Deviation']]) 
set_param([sys,7',['Missile_Control/MThrustN  Standard  ',13,'Deviation']],... 

'Value', 'MThrustNstd',... 

'position',[620,247,7 10,263]) 

add_block('built-in/White  Noise',[sys,'/’,'Missile_Control/White  Noise  5']) 
set_param([sys,'/','MissiIe_Control/White  Noise  5'],... 

'Seed','noiseseed(5)',... 

'position',[745,220,765,240]) 

add_block('buiIt-in/Transfer  Fcn',[sys,'/',['Missile_Control/Transfer  ',13,'Fcnl  1']]) 
set_param([sys,'/',['Missile_ControI/Transfer  ’,13,'Fcnl  I']],... 

'Denominator’,'[.00694444  .05  1  ]’,... 

'position',(655,123,800,167]) 

add_block('built-in/Transfer  Fcn',[sys,’/’,('Missile_Control/Transfer  ’,13,'FcnlO’]]) 
set_param([sys,'/',['Missile_Control/Transfer  ',13,’Fcn  10']],... 

'Nunierator','[2  1]',... 

'Denominator',’]  1  0]’,... 

'position’,[595,127,635,1631) 

add_block('built-in/Constant',[sys,'/','Missile_Control/Acquire  Std  Dev']) 
set_param([sys,'/','Missile_Control/Acquire  Std  Dev’],... 

'Value', 'AcquireNstd',... 

'position',]  140,323,230,347]) 

add_block('built-in/Note',]sys,'/’,'Missile_Control/BLOCK:  Missile_Contror]) 
set_param(]sys,'/','Missile_Control/BLOCK:  Missile_Contror],... 
'position',]635,405,640,410]) 

add_line(]sys,'/','Missile_Contror],]  1240,275;  1297,275;  1297,200;  13 15,200]) 

addJine(]sys,’/','Missile_Contror],]  1 297,200;  1 297, 150;  1315,150]) 

add_line(]sys,'/’,'Missile_Contror],]l  135,275;!  180,275]) 

add_line(]sys,’/','Missile_Contror],]1010,305;1090,305]) 

add_line(lsys,’/’,'Missile_Control’],]  1010,275;  1090,275]) 

addJine(]sys,'/','Missile_Contror],]  1240,275;  1257,275;  1257,3 15;  1290,3 15]) 

addJine(]sys,’/’,’Missile_Contror],]300,260;320,260;330,170]) 

addJine(]sys,’/','Missile_Contror],]240,255;265,255]) 

add_line(]sys,’/','Missile_Control’],]175,255;195,255]) 

addJine([sys,’/','Missi!e_Contror],]235,335;253,335;253,265;265,265]) 

add_line([sys,’/','Missile_Contror],]805, 145;900, 145]) 

add_line([sys,’/','Missile_Contror],]770,230;787,230;787,235;820,235]) 

addJine(]sys,'/','Missile_Contror],]715,255;820,255]) 

add_line([sys,’/','Missile_Control’],]330,60;370,60;380,140]) 

add_line(]sys,’/','Missile_Contror],]370,127;370,90;410,90]) 

add_line(]sys,'/’,'Missile_Contror],]470,90;5 15,90]) 

addJine([sys,’/','Missile_Contror],]935,150;945,145]) 

addJine([sys,’/','Missile_Control’],]280,150;330,150]) 

add_line(]sys,’/’,'Missile_Contror],]645,90;1017,90;1017,135;1035,135]) 
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addJine([sys,'/'/Missile_Contror],[565,90;585»90]) 

add  Jine([sys//','Missile_Contror],[  1 140, 140;  1 195, 140]) 

add  Jine([sys,T,’Missile.Contror],[  1070, 140;  1080, 140]) 

addJine([sys,r,’Missile^Contror],[l350,205;1380,205]) 

addJine([sys,T,'Missile_Contror],[l295,2I0;13l5,210]) 

addJine([sys,7’,'Missile_Contror],[  1290, 140;  13 15, 140]) 

addJine([sys,T,'Missile_Contror],[  1 350, 1 45 ;  1 380, 145]) 

addJine([sys,T,'Missile_Contror],[450,145;455,l45]) 

addJine([sys,T,’Missile_Contror],[415,145;420,I45]) 

addJine([sys,‘/’,’Missile_Contror],[585,145;590,145]) 

addJine([sys,*/’,’Missile_Contror],[640,145;650,145]) 

addJine([sys,7,'Missile_Contror],[  1015, 145;  1035, 145]) 

addJine([sys,r,'Missiie_Contror],[975,145;985,l45]) 

addJine([sys,V’,'Missile_Contror],[360,160;380,l50]) 

addJine([sys,7,’Missile_Contror],[190,150;220,150]) 

add  Jine([sys,T,'Missile_Contror],[85, 1 30;  1 50, 1 30]) 

addJine([sys,T,’Missile_Contror],[1410,145;I422,145;l460,150]) 

add  Jine([sys,7,’Missile_Control'],[  1 30, 165;  150, 165]) 

addJine([sys,7’,’Missile^Contror],[14I0,205;1422,205;1460,200]) 

add  Jine([sys,r,’Missile^Contror],[  1070,245;  1090,245]) 

addJine([sys,T,‘Missile^Contron,[l  140,140;!  165,140;!  165, 200;310,200;310,160;330, 160]) 
addJine([sys,r,*Missile^Contror],[855,235;865,235;865,155;900,155]) 
addJine([sys,T,’Missile^Contror],[805,l45;810,I45;820,215]) 
addJine([sys,7,’Missile_Contror],[l  165,200;!  165,210;1200,210]) 
set_param([sys,7,’Missile_Contror],... 

’Mask  DisplayVAC  position  (x,y,z)  \nMissile  range  sin  posVnMissile  (x.y,z) 
\nTime  cos  pos') 


%  Finished  composite  block  'Missile^Control'. 

set_param([sys,7,Missile_Control’],... 

’position’,[375,288,525,347]) 

add_block('built-in/To  Workspace',[sys,7,'time']) 
set_param(  [sy  s,7' ,’ ti  me’] , . . . 

’mat-name’,'time'„.. 

’buffer’,’ lOOOOOO',... 

’position’, (150,507, 200,523]) 

add_block(’built-in/Clock’,[sys,’/’, ’Clock’]) 
set_param([sys,’/’,’Clock’],... 

*position’,[55,505,75,525]) 


%  Subsystem  ’A//C’. 

new_system([sys,'/’,’A//C’]) 
set_param([sys,’/’,’A//C’],’Location’, [77,99, 1 109,692]) 

add__bIock(’built-in/To  Workspace’,  [sys,'/’,’A//C/zacr]) 
set_param([sys,'/’,’A//C/zacr],... 

’mat-name’,’zac’,... 

’buffer’, ’1000000000’,. .. 

’position’, [730, 132,780,148]) 
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adci_block(’buiIt-inyTo  Workspace', [sys,7/A//C/yac  I']) 
set_param([sys,T,'A//C/yac  1'],... 

’mat-name’, ’yac',.„ 

’buffer’,’ lOOOOOOOOO’,... 

’position’, [865, 407,915, 423]) 

add_block(’built-in/Mux',[sys,’/’,’A//C/ac  pos’]) 
set_param([sys,’/’,'Ay/C/ac  pos’],... 

’orientation’,  I,... 

’inputs',’3’,... 

’position’, [9 14,365,966,405]) 

add_bIock(’built-in/To  Workspace', [sys,'/’,*A//C/xac  I  ’]) 
set_param([sys,'/’,’A//C/xacl ’],... 

’mat-name*,’xac’,... 

’buffer’,’1000000000’,... 

’position’,[890,2 17,940,233]) 

add_block(’buiIt-in/Sum’,[sys,'/',’A//C/Sum  1 3’]) 
set_param([sys,7’,'A//C/Suml3'],... 

’inputs’, 

’position’,[820,259,840,281]) 

add_bIock(’built-in/Sum’,[sys,’/’,’A//C/Sumn3c’]) 

set_param([sys,’/’,'A//C/Sumn3c’],... 

’position’, [745, 338,770,362]) 

add_block(’built-in/Gain',[sys,’/’,'A//C/Gain2’]) 

set_param([sys,’/',’A//C/Gain2'],... 

’Gain’,’-!’,... 

’position’,[8 10,340,830,360]) 

add_block('built-in/Product',[sys,’/',’A//C/m22’]) 

set_param([sys,’/',’A//C/m22’],... 

’position’,[600,480,625,500]) 

add_block(’built-in/Constant’,[sys,’/’,’A//C/AC  crosswind’]) 
set_param([sys,’/’,'A//C/AC  crosswind’],... 

’Value’ ,’accrosswind’,... 

’position’,[460,455, 555,475]) 

add_bIock('buiit-inAVhite  Noisc',[sys,'/’,[’A//C/White  Noise',  13,'3’]]) 
set_param([sys,’/’,[’A//C/White  Noise’,  13,’3']],... 

’Seed',’noiseseed(3)’,... 

’position’,[435,395, 455,415]) 


%  Subsystem  [' A//C/hold3',  1 3,'sample=  1  ’]. 
new__system([sys,’/',[’A//C/hoId3',l3,’sample=r]]) 

set_param([sys,’/',[’ A//C/hold3',  1 3,'sample=  1  ’]],'Location',[5 1 1 , 1 5 1 ,9 1 5,322]) 

add_block(’built-in/Zero-Order  Hold',[sys,'/’,[’A//C/hoId3’,13,’sample=l/Zero-Order',13,'HoId']]) 
set_param([sys,’/’,['A//C/hold3',13,'sample=  1/Zero-Order’,  13,'Hold’]],... 
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’Sample  time'/Ts',... 

’position\[l00,29, 135,61]) 

add.bIock(’buiit-in/Gain’,[sys,7’,rA//C/hold3\13;sample=  I/Gain']]) 
set_param([sys//’,[’A//C/hoId3’,13,'sampIe=  I/Gain’]],... 

*Gain’;i/Ts',... 

•position’, [285,33, 325, 77]) 

add_block('built-in/Integrator',[sys,’/’,[’A//C/hold3’,13,’sampIe=l/Integrator']]) 

set_param([sys,’/’,['A//C/hoId3M3,'sample=l/Integrator']],... 

•position’,[235, 42,260, 68]) 

add_block(’built-in/Sum’,[sys,'/’,['A//C/hoId3’,I3,’sampIe=l/Sum’]]) 

set_param([sys,7’,[’A//C/hoId3M3,’sampIe=l/Sum’]],... 

’inputs’,’+-’,... 

’position',[  190,37,2 10,68]) 

add_biock(’buiIt-in/Unit  DeIay’,[sys,'/’,[’A//C/hoId3M3,'sample=  1/Unit  Delay']]) 
set_param([sys,’/',[’A//C/hoId3',13,’sample=l/Unit  Delay']],... 

'Sample  time*,'Ts',... 

’position’,[90,93, 140,1 17]) 

add_block('buiIt-in/Inport',[sys,7’,['A//C/hold3',  1 3,'sample=  1/input']]) 
set_param([sys,'/',[’A//C/hold3',i3,’sample=l/input']],... 

'position', [25, 35, 45,55]) 

add_block('built-in/Outport',[sys,’/’,['A//C/hold3’,13,'sample=l/output’]]) 

set_param([sys,’/',['A//C/hold3',13,'sample=l/output']],... 

’position',[345, 45, 365,65]) 

addJine([sys,’/',['A//C/hold3',13,’sample=r]], [330,55:340,55]) 

addJine([sys,’/',['A//C/hold3',13,'sample=r]],[265,55;280,55]) 

addJine([sys,’/',['A//C/hold3’,13,'sample=r]],[215, 55:230, 55]) 

add  Jine([sys,'/',['A//C/hold3’,13,’sample=r]],[145,105:165, 105:165,60:185,60]) 

addJine([sys,'/',['A//C/hold3',  1 3,'sample= !']],[  140,45: 185,45]) 

add_line([sys,’/',['A//C/hold3M3,’sample=r]],[50,45:95,45]) 

addJine([sys,'/’,['Ay/C/hold3’,13,’sampIe=r]],[65,45:65,105:85,105]) 

set_param([sys,'/',['A//C/hold3',13,'sample=r]],... 

'Mask  Display’, 'plot(0,0,100,100,[90,70,50, 30, 10],[60, 40,80,30,20])',... 

'Mask  Type', 'First-Order  Hold',... 

'Mask  Dialogue', 'First-Order  HoldlSample  Time:',... 

'Mask  TransIate','Ts=@  1:') 
set__param([sys,’/’,['A//C/hold3’,13,'sampie=r]],... 

'Mask  Help','Implements  a  First-Order  sample-and-hold  latch  operating  at  the  sampling 
interval  you  specify.’,... 

'Mask  Entries',’ IV) 


%  Finished  composite  block  ['A//C/hold3’,  1 3,'sample=  1 '] . 

set_param([sys,'/’,[’A//C/hold3’,13,*sampIe=r]],... 

'position', [490,389, 525 ,421]) 

add_block('built-in/Product’,[sys,'/',’A//C/Productn3']) 

set_param([sys,'/','A//C/Productn3’],... 

'position’,[560,390,585,4l0]) 
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add_block(‘built-in/Sum',[sys,7/A//C/Sumn3a’]) 

set_param([sys,7',’A//C/Sumn3a'],... 

•position\[655,383,680,407]) 

add_block(’buiIt‘in/Mux‘,[sys,7/A//C/MuxI6’]) 
set_param([sys,7,’A//C/Mux  16'],... 

'inputs',’2',... 

’position', [625, 18 1,655,214]) 

add_block('built-in/Fcn’,[sys,’/’,’A//C/Fcn']) 
set_param(  [sy  s,7,’A//C/Fcn‘], . .. 

’position’,[370, 148,445, 172]) 

add_block('built-in/Fcn’,[sys,7,'A//C/Fcn6']) 

set_param([sys,'/’,’A//C/Fcn6’],... 

’Expr',’cos(u[l  ])',... 

'position', [490, 274,570, 296]) 

add_block('buiIt-in/Fcn',[sys,'/',’A//C/Fcn4']) 

set_param([sys,7,’Ay/C/Fcn4'],... 

'position',[490,339, 570,36 1  ]) 

add_bIoc  k(’bui  It-  i  n/Product',  [  sys,’/*,’ A//C/Product’  ] ) 
set_param([sys,’/’,’A//C/Product’],... 

'position’,[485,155,5l0,175]) 

add_blockCbuilt-in/Integrator',[sys,’/',’A//C/Int  1  ’]) 
set_param([sys,'/','A//C/Intr],... 

’position’,[550, 1 55,570, 175]) 

add_bIock('buiIt-in/Integrator',[sys,7,’A//C/Int']) 

set_param([sys,'/’,'A//C/Int’],... 

’position',[550,215,570,235]) 

add_block('built-in/Fcn',[sys,’/’,*A//C/Fcnr]) 
set_param([sys,7,’A//C/Fcn  1 '],... 

'Expr’,'cos(u[l  ])',... 
'position',[365,219,445,241]) 

add_biock(’built-in/Product',[sys,7,’A//C/Productr]) 

set_param([sys,7,'A//C/Productr],... 

'position', [485,2 15,5 1 0,235]) 

add_block('built-in/Product’,[sys,7,*A//C/m5’]) 

set_param([sys,7,’A//C/m5’],... 

’position’,[605, 300,630, 320]) 

add_block('built-in/Product',[sys,'/’,'A//C/m4']) 

set_parani([sys,'/',’A//C/m4'],... 

*position',[600,265, 625,285]) 

add_block(’built-in/Note',[sys,7,’A//C/c’]) 

set_param([sys,'/','A//C/c'],... 

'position', [645, 260,650, 265]) 
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add_block('built-in/Note’,[sys,7','A//C/d’]) 
set_param([sys,'A'A//C/d’] . 

’position', [645, 310,650, 315]) 

add_bIock('built-in/White  Noise’, [sys, A//C/White  Noise',  13, '!’]]) 
set_param([sys,'/’,['A//C/White  Noise’, 13,'!']],... 

’SeedVnoiseseed(  I)',... 

’position’,[85 ,45, 105,65]) 

add_block(’buiIt-in/Product',[sys,’/’,'A//C/mn  1  ’]) 
set_param([sys,'/’,’A//C/mn  1'],... 

’position’,[225,95,250,115]) 

add_bIock(’buiIt-in/Sum',[sys,’/’,’A//C/sumn  1  b']) 
set_pararn([sys,’/’,'A//C/sumn  1  b'],... 

’position',[290, 100,3 10, 120]) 

add_block('buiIt-in/Constant’,[sys,'/’,[’A//C/a//c  climb’,  13,'veloicity',  13,”]]) 
set_param([sys,'/’,[’A//C/a//c  climb’,  I3,’veloicity',13,”]],... 

'Value‘,'acver,.., 

’position’,[I70, 147,210, 163]) 

add_biock('built-in/Constant',[sys,'/’,['A//C/AC  Velocity',  13,’Noise  std  dev']]) 
set_param([sys,’/',['A//C/AC  Velocity’,! 3,’Noise  std  dev']],,.. 
’Value’,’acvelstd’,... 

’position’,[85,I00,145,120]) 


%  Subsystem  ['A//C/hold  I ',  1 3,'sample=.25’]. 
new_system([sys,7,[’A//C/hoid  1  ’,  1 3,'sample=.25']]) 

set_param([sys,’/’,['A//C/hold  1  1 3,’sample=.25']],'Location’,[5 1 1 , 15 1 ,9 1 5,322]) 

add_block(’built-in/Zero-Order  Hold’,[sys,’/',[’A//C/holdr,13,'sampie=.25/Zero-Order',13,'Hold']]) 
set_param([sys,'/’,['A//C/hoIdr,13,’sample=,25/Zero-Order',13,'Hold’]],... 

'Sample  time’,*Ts’,.,. 

’position’,[  100,29, 135,61]) 

add_block('buiIt-in/Gain',[sys,'/’,[’A//C/hoId  1  ’,  1 3,’sample=.25/Gain']]) 
set_param([sys,’/’,[’A//C/hoIdr,13,'sample=.25/Gain']],... 

'Gain',’l/Ts',... 

’position',[285, 33,325,77]) 

add_block(’built-in/Integrator',[sys,'/’,['A//C/holdr,13,’sampIe=.25/Integrator']]) 
set_param([sys,’/’,[’A//C/hoid  1  1 3,'sampIe=.25/Integrator']],... 

'position', [235,42,260,68]) 

add31ock('buiIt-in/Sum',[sys,'/*,['A//C/holdr,13,'sample=.25/Sum']]) 
set_param([sys,’/',['A//C/hold  1 ',  1 3,’sample=.25/Sum']],... 

'inputs’, 

’position',[190, 37,210, 68]) 

add_block(’built-inAJnit  Delay*,[sys,’/',['A//C/holdr,13,'sampIe=.25/Unit  Delay’]]) 
set_param([sys,'/',['A//C/holdr,13,'sample=.25/Unit  Delay’]],... 
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'Sample  time',Ts\... 
’position\[90,93,140,117]) 


add_bIock('built-in/Inport‘,[sys,7,[’A//C/hold  I 1 3/sample=:.25/input’]]) 
set_param([sys//’,['A//C/hoIdr,13,'sample=.25/input']],... 

'position’, [25, 35, 45,55]) 

add_bIockCbuilt-in/Outport',[sys,7,[’A//C/hoId  r,  1 3,'sampIe=.25/output']]) 
set_param([sys,'/',[’A//C/holdr,13,’sampIe=.25/output’]],... 

'position', [345, 45,365, 65]) 

addJine([sys,7,[’A//C/holdr,i3,’sample=.25']],[330,55;340,55]) 

addJine([sys,7,[’A//C/holdlM3,'sampIe=.25’]],[265,55;280,55]) 

addJine([sys,7,['A//C/holdr,13,’sample=.25']],[2l5,55;230,55]) 

addJine([sys,7,['A//C/holdr,13,'sample=.25’]].[l45,105;165,105;165,60;185,60]) 

addJine([sys,7,[’A//C/hoidl’,13,'sample=.25’]],[I40,45;185,45]) 

addJine([sys,7,rA//C/holdr,13,'sample=.25']],[50,45;95,45]) 

addJine([sys,'/',[’A//C/holdr,13,'sample=.25’]],[65,45;65,105;85,105]) 

set_param([sys,7,['A//C/hoIdr,I3,’samp!e=.25']],... 

'Mask  Display’,’pIot(0,0, 100, 100,[90, 70,50,30, 10], [60, 40, 80,30,20])’,... 

'Mask  Type', 'First-Order  Hold',... 

'Mask  DiaIogue’,'First-Order  HoldlSample  Time:') 
set_param([sys,'/',[’A//C/holdr,l3,'sampIe=.25']],... 

'Mask  Trans!ate’,’Ts=@  1 

'Mask  Help’,’lmplements  a  First-Order  sample-and-hold  latch  operating  at  the  sampling 
interval  you  specify.’,... 

'Mask  Enfries','.25V') 


%  Finished  composite  block  ['A//C/hoIdr,l3,’sampIe=.25’], 

set_param([sys,'/’,['A//C/hoId  I ',  1 3,'sample=.25’]],... 

’position’,[  145,39, 180,71]) 

add_block(’built-in/Outport',[sys,’/’,'A//C/AC  velocity  (z,x)']) 
set_param([sys,'/’,'A//C/AC  velocity  (z,x)’],... 

’position’,[1020,I90,1040,210]) 

add_block('built-in/Outport',[sys,’/','A//C/AC  position  (x,y,z)‘]) 
set_param([sys,7,’A//C/AC  position  (x,y,z)'],... 

'orientation',  1,... 

'Port’,'2’,... 

'position', [1005,430,1025,450]) 

add_bIock(’buiIt-in/Constant’,[sys,'/',['A//C/a//c  climb’,13,’angler]]) 
set_param([sys,7,[’A//C/a//c  climb’,  13,'angler]],... 

'Value', 'acclimbangle',... 

’position',[  120,342,205,358]) 

add_block(’buiIt-in/Sum',[sys,'/’,'A//C/Sumn2b']) 

set_param([sys,’/’,’A//C/Sumn2b'],... 

'position’,[235, 295,255,3 15]) 

add_biock(’built-in/Constant’,[sys,'/’,[’A//C/Ac  Angle’,  13, 'std  dev']]) 
set_param([sys,7,[’A//C/Ac  Angle',  13,'std  dev’]],... 

'Value', 'acangstd',... 
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'position\[70, 305, 125,325]) 

add_block('built-in/Product’,[sys,7,’A//C/mn2']) 

set_param([sys,7,*A//C/mn2'],... 

'position’,[  1 80,290,205,3 10]) 


%  Subsystem  [’A//C/hoId2',13,'sampie=r]. 
new_system([sys,7*,['A//C/hoId2M3,'sampIe=:r]]) 

set_param([sys,7',['A//C/hoId2’,  1 3,'sample=  I ']], 'Location’, [5 11,151 ,9 15,322]) 

add_block('built-in/Zero-Order  HoId’,[sys,'/‘,[’A//C/hold2',13,'sampIe=l /Zero-Order',  13,’Hold']]) 
set_param([sys,7',['A//C/hold2’,  13, 'sample=  1/Zero-Order',  13,'Hold‘]],... 

'Sample  time’,'Ts',... 

’position’,[  1 00,29, 1 35,6 1  ]) 

add_block(’buiIt-in/Gain',[sys,'/’,[*A//C/hold2*,  1 3,’sample=  I/Gain']]) 
set_param([sys,’/’,[’Ay/C/hold2',13,’sample=  1/Gain']],... 

'Gain','l/Ts’,... 

'position’,[285,33,325,77]) 

add_block('built-in/Integrator',[sys,7,[’A//C/hoId2’,  1 3,’sample=  1/Integrator’]]) 
set_param([sys,’/’,[’A//C/hold2’,13,'sampIe=l/Integrator']],... 

•position’,[235, 42, 260,68]) 

add_block('built-in/Sum',[sys,7,[’A//C/hold2’,13,’sampIe=  1/Sum’]]) 
set_param([sys,'/',[’A//C/hoId2M3,'sampIe=l/Sum']],... 

'inputs','+-',... 

'position',[  190,37,210,68]) 

add_block('built-in/Unit  Delay‘,[sys,'/*,[’A//C/hold2',13,'sample=l/Unit  Delay']]) 
set_param([sys,'/',[’A//C/hoId2',13,’sampIe=  1/Unit  Delay’]],... 

’Sample  time',Ts',... 

’position',[90,93, 140,1 17]) 

add_block('buiIt-in/Inport’,[sys,'/',(’A//C/hold2’,13,'sample=l/input’]]) 

set_param([sys,’/’,['A//C/hoId2’,13,’sampIe=l/input’]],... 

’position',[25, 35,45, 55]) 

add_block('built-in/Outport',[sys,7,[’A//C/hold2',  1 3,'sample=  1/output']]) 
set_param([sys,'/',[’A//C/hoId2’,13,'sampIe=l/output']],... 

'position',[345, 45, 365,65]) 

addJine([sys,7,[’A//C/hold2’,13,’sample=r]],[330,55;340,55]) 

addJine([sys,’/’,['A//C/hoId2’,13,'sample=l']],[265,55;280,55]) 

addJine([sys,7,['A//C/hold2’,13,’sample=l’]],[215,55;230,55]) 

addJine([sys,7,[’A//C/hoId2',13,’sampIe=r]],[145,105;165,105;165,60;185,60]) 

addJine([sys,7,[’A//C/hold2’,13,'sample=l']],[140,45;185,45]) 

addJine([sys,7,[’A//C/hold2',13,’sample=r]],[50,45;95,45]) 

addJine([sys,7,[’A//C/hold2’,13,’sampIe=n],[65,45;65,105;85,105]) 

set_param([sy  s,'/’,['A//C/hold2’,  1 3,’sample=  1  ']],... 

'Mask  Display’, ’plot(0,0,100,100,[90, 70, 50,30, 10],[60,40, 80,30,20])’,... 

’Mask  Type’, ’First-Order  Hold',... 

’Mask  Dialogue’,’First-Order  HoldlSample  Time:',... 

’Mask  Translate’,'Ts=@  1;') 
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set_param([sys, A//C/hoId2M3, 'samples!']], ... 

'Mask  Help'.’Implements  a  First-Order  sample-and-hold  latch  operating  at  the  sampling 
interval  you  specify.',... 

'Mask  Entries',’ IV) 


%  Finished  composite  block  ['A//C/hold2',13,'sampIe=r]. 

set_param([sys,'/',['A//C/hoId2',13,'sample=r]],... 

’position’,[  1 20,239, 1 55,27 1  ]) 

add_block('buiIt-in/White  Noise',[sys,'/’,['A//CAVhite  Noise',  13,'  2']]) 
set_param([sys,'/',['A//C/White  Noise',13,'  2']],... 

'Seed','noiseseed(2)’,... 

'position’,[70,245 .90,265]) 

add_block('built-in/Constant’,[sys,'/',('A//C/Missile  range  ’,13,'ffom  A//C  rotation']]) 
set_param([sys,'/',['A//C7Missile  range  ’,13,'from  A//C  rotation']],... 
'Value','missilerange',... 

’position',[340,296,420,3 14]) 

add_block(’built-in/Constant',[sys,’/’,['A//C/Initial  missile  angle’,  13,'in  XY  plane']]) 
set_param([sys, '/',[' A//CAnitial  missile  angle',  13,'in  XY  plane’]],... 
'Value','missiletheta’,... 

'position’,[335,34 1,425,359]) 

add_block('built-in/Inport',[sys,’/’,'A//C/Time']) 

set_param([sys,'/','A//C/Time'],... 

'position’,[345,485.365,505]) 

add_block('built-in/Constant',[sys,'/’,[’A//C/ACypos  ’,  1 3,'std  dev.']]) 
set_param([sys,'/',['A//C/ACypos  ',1 3,'std  dev.']],... 

'Value'.'acystd',... 

'position’,[365,440,420.460]) 

add_block('built-in/Note',[sys,'/','A//C/BLOCK;  A//C']) 
set_param([sys,'/',’A//C/BLOCK:A//C],... 

'position’,[500,550,505,555]) 
addJine([sys,'/','A//C'],[575,165;955,165:955,360]) 
addJine([sys,’/','A//C’],(685,165;685,140;725,140]) 
addJine([sys,'/’,’A//C’],t835,350;940,360]) 
addJine([sys,’/','A//C'],[845,350;845,415;860,415]) 
add_line([sys,'/','A//C’],[845,270;925,270;925,360]) 
addJine([sys,’/','A//C'], [875,270:885,225]) 
addJine([sys,'/’,’A//C’],[590,400;615,400;615,390;650,390]) 
add_line([sys,'/','A//C'],[630,490;635,490;635,400;650,400]) 
addJine([sys,’/’,'A//C’],[560,465;570,465;570,485;595,485]) 
add_line([sys,'/’,’A//C'],[460, 405:485,405]) 
addJine([sys,’/','A//C’],[530,405:535,405:535,395:555,395]) 
addJine([sys,'/','A//C'], [685,395:720,395:720,355:740,355]) 
addJine([sys,’/',’A//C’],[130,3I5:145,315:145.305:175,305]) 
add_line([sys,'/',’A//C'],[160,255:165,255:175,295]) 
addJine([sys,’/','A//C’],[95,255:l  15,255]) 
add_Iine([sys,'/’,'A//C'],[210,300:230,300]) 
add_line([sys,'/','A//C'],[  150,1 10:220,1 10]) 
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addJine([sys.r,'A//C’],[255. 105;285, 105]) 

addJine([sys.7';A//C],[  1 85.55;205,55;205, 100;220, 100]) 

addJine([sys.7','A//C].[  1 10,55;  140,55]) 

addJine([sys,7’,'A//C'].[515,225;545,225]) 

addJine([sys,'/’,'A//C'],[525,225;525,205;620,205]) 

addjine([sys,7',’ A//C'],[5 1 5, 1 65;545. 165]) 

add_line([sys,7’,'A//C],[525,165;525,190;620,190]) 

addJine([sys,7’,'A//C'],[775.350;805,350]) 

addJine([sys,7','A//C], [635,3 10;680,3 10;680,345;740,345]) 

add_line([sys,'/’,'A//C’],[425,450;54 1 ,450;54 1 ,405,555,405]) 

addJine([sys,r,'A//C],[260,305;315,305;315,160;365,160]) 

addJine([sys,7','A//C].[315,230;360,230]) 

addJine([sys,7','A//C],[210,350;215,350;215,310;230,310]) 

add_line([sys,7', 'A//C], [315,1 10;455,110;455,190;465,190;465,220;480, 220]) 

addJine([sys,7’,’A//C],[465, 190;465, 170;480, 170]) 

addJine([sys.7','A//C],[215,155;272,155;272,l  15;285,1 15]) 

addJine([sys,7','A//C’], [575,285 ;580,280;595,280]) 

addJine([sys,7','A//C],[575.350;585,350;585,315;600,315]) 

addJine([sys,7','A//C’],[425,305;600,305]) 

addJine([sys,7','A//C’],[425,305;455,305;455,270;595,270]) 

addJine([sys,r,'A//C],[430,350;485,350]) 

addJine([sys,r,’A//C'],[430,350;470,350;470,285;485,285]) 

addJine([sys.7','A//C], [630, 275;8 15,275]) 

addJine([sys,7','A//C’],[450,230;480,230]) 

addJine([sys,r,’A//C],[450, 160;480, 160]) 

addJine([sys,7','A//C],[575,225;590,225;590,265;8 15,265]) 

addJine([sys,7’,'A//C],[660,200;1015,200]) 

addJine([sys,’/’,'A//C].[940,410;940,415:1015,425]) 

addJine([sys,7','A//C’],[370,495;595,495]) 

set_param([sys,7','A//C'],... 

'Mask  Display’,’  AC  velocity  (z,x)\nTime  \n 


%  Finished  composite  block  ’A//C’. 

set_param([sys,’/’,’A//C’],... 

’positi6n’,[145, 259,275,306]) 

add_bIock('built-in/MATLAB  Fcn’,[sys,'/',’exppos  1  .m’]) 
set_param([sys,’/’,’exppos  1  .m’],... 

’orientation',2,... 

’MATLAB  Fcn’,’expposr,... 

'Output  Width’,’9’,... 

’position’,(1530, 15, 1580,45]) 

add_block(’built-in/To  Workspace’, [sys,'/’,’xexp  1  ’]) 
set_param([sys,’/’,’xexpr],... 

'mat-name' ,'xexp  1 
'buffer',' 1000000000’,... 
’position’,[1750,70, 1800,90]) 

add_bIock('built-in/To  Workspace',[sys,'/','yexpr]) 
set_param([sys,'/','yexpr],... 

'mat-name','yexp  1 ',... 
'buffer’,'1000000000',... 


AC  position  (x,y,z)') 
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'positionM1695,90,1745,I10]) 


acid_block('built-in/To  Workspace’, [sys,7,'zexpr]) 
seLparam([sys,’/’/zexp  I 

’mat-nameVzexp  r,... 

•buffer’/iOOOOOOOOO',... 

’position’,[1755, 120,1805, 140]) 

add_block('built-in/To  Workspace',[sys,V’,'PKr]) 
set_param(  [sy  s,  7’,’PK  1’] , . . . 

’mat-name’, ’PKl’,... 

’buffer',' 1000000000’,... 

•position’, [  1 695, 1 50, 1 745, 1 70]) 

add_block('buiIt-inyStop  Simulation’,[sys,’/’,['Stop  simulation  ',13,'if  non-zerol’]]) 
set_param([sys,'/',['Stop  simulation  ’,13,'if  non-zerol']],.., 

'position', [1780,169, 1830,211]) 

add_block(’built-in/To  Workspace’, [sys,’/’,’mexsiantrange  1’]) 
set_param([sys,'/','mexslantrangel ’],... 

’mat-name’,'mexslantrange  1*,... 

’buffer’,' 1000000000’,... 

’position’,[1650, 200,1740, 220]) 

add_block('built-in/MATLAB  Fcn’,[sys,'/’,’exppos2.m’]) 
set_param([sys,'/’,’exppos2.m'],... 

’orientation',2,... 

’MATLAB  Fcn*,’exppos2’,,.. 

’Output  Width’,'9',... 

’position’,[1535,270, 1585,300]) 

add_bIock('built-in/To  Workspace', [sys,'/’,'xexp2']) 
set_param([sys,’/’,'xexp2'],... 

’mat-name’,'xexp2’,... 

'buffer',’ lOOOOOOOOO’,.,. 

'position’, [1745, 330,1795, 350]) 

add_bIock('built-in/To  Workspace’,[sys,'/’,’yexp2']) 
set_param([sys,'/’,'yexp2'],... 

’mat-name’, 'yexp2’,... 

’buffer',’1000000000’,... 

’position', [1695,355,1745, 375]) 

add_block(’built-inyTo  Workspace’,  [sys,’/’,’2exp2’]) 
set_param([sys,’/’,’zexp2’],... 

’mat-name’,'zexp2’,... 

•  •buffer',’1000000000’,... 

’position’,[  1 780,370, 1 830,390]) 

add_block(’built-in/To  Workspace’, [sys,'/’,'PK2’]) 
set_param([sys,'/','PK2'],... 

’mat-name’,’PK2',... 

'buffer’,' 1000000000’,... 

'position', [  1780,4 1 0, 1 830,430]) 
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add_block('built-in/Stop  Siinulation'.[sys,7,['Stop  simulation',  13, 'if  non- zero’,  13,'_2']]) 
set_param([sys,'/',['Stop  simulation’.  13,'if  non-zero’,  13,’_2’]],... 

’position’,!  1 840,424, 1 890,466]) 

add_block('built-in/To  Workspace’, [sys,’/’,’mexslantrange2’]) 
set_param([sys,’/’,’mexslantrange2’],... 

’mat-name’,’mexslantrange2’,... 

’buffer’,’1000000000’,... 

’position’,!  17 1 0,455, 1 800,475 1) 

add_biock(’built-in/MATLAB  Fcn’,!sys,’/’,’exppos3.m’]) 
set_param(!sys,’/’,'exppos3.m’],... 

’orientation’,2,... 

’MATLAB  Fcn’,’exppos3’,... 

'Output  Width’,’9’.... 

'position',!  1605,530, 1 655,560]) 

add_block(’built-in/To  Workspace’,Isys,’/’,’xexp3']) 
set_param(!sys,’/’,’xexp3’],... 

’mat-name’,’xexp3’,... 

’buffer’, ’1000000000’,... 

’position’,!  1 820,575, 1 870,595]) 

add_block(’built-in/To  Workspace', !sys,’/’,’yexp3’]) 
set_param(!sys,’/’,’yexp3’], . . . 

'mat-name’,'yexp3',... 

’buffer’,’ 1 000000000’,... 

’position’.!  1 760,595, 1 8 1 0.6 15 1) 

add_biock(’built-in/To  Workspace’,!sys,’/’,’zexp3’]) 
set_param(!sys,’/’,’zexp3’],... 

’mat-name’,’zexp3’,... 

’buffer’,’1000000000’,... 

’position’,!  1 835.625, 1 885,645]) 

add_block(’built-in/To  Workspace’,!sys,’/’,’PK3’]) 
set_param(!sys,’/’,'PK3'],... 

’mat-name’,’PK3’,... 

’buffer’,’1000000000’,... 

’position’,!  1785,660, 1 835,680]) 

add_block(’built-in/Stop  Simulation’,!sys,’/’,!’Stop  simulation  ’,13,’if  non-zero_3’]]) 
set_param(!sys,’/’,!’Stop  simulation  ’,13,’if  non-zero_3’]],... 

’position’,!  1 870,679, 1920,72 1  ]) 

add_bIock(’built-in/To  Workspace’,!sys,’/’,’mexslantrange3’]) 
set_param(!sys.’/',’mexslantrange3’],... 

’mat-name',’mexslantrange3’,... 

’buffer’,’1000000000’,... 

’position’,!  1 735,7 1 0, 1 825,730]) 


%  Subsystem  'Quad_data’. 
new_system(!sys,’/’,’Quad_data’]) 
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set_param([sys//’/Quad_data’];Location\[65,6 15, 1 105,915]) 

add_block('built-in/Constant’,[sys,'/’,'Quad_data/.95']) 

set_param([sys//’,'Quad_data/.95’],... 

'orientation*,2,... 

'Value', ’.95',... 

'position', [  1 60,9 1 , 1 85 , 1 09] ) 

add_block(’buiIt-in/Product',[sys,’/’,’Quad_data/mn7']) 

set_param([sys,'/',’Quad_data/mn7’],... 

’orientation’,2,... 

’position',[75, 107, 100,143]) 

add_block('built-in/MATLAB  Fcn’,[sys,’/',*Quad_data/divplus.m’]) 
set_param([sys,'/','Quad_data/divplus.m'],... 

'orientation',2,... 

'MATLAB  Fcn’,’divplus',... 

'Output  Width’,'!’,... 

'position',[l  15,1 18,170,152]) 

add_block('built-in/Constant',[sys,'/’,'Quad_data/Avg  det.  dist.’]) 
set_param([sys,’/’,'Quad_data/Avg  det.  dist.’],... 

*orientation’,2,... 

'VaIue','Average_detect_dist’,... 

•position’, [235,61, 370,79]) 

add_bIock('buiIt-in/Mux’,[sys,'/','Quad_data/Mux2 1  ’]) 
set_param([sys,’/',’Quad_data/Mux2r],... 

’orientation’,2,... 

'inputs’, '2',,.. 

'position', [185, 1 18,215,147]) 

add_block('buiIt-in/Sum’,[sys,'/’,'Quad_data/sum5n2']) 

set_param([sys,'/',’Quad_data/sum5n2'],... 

’orientation',2,... 

'inputs’, 

’position',[275,93,300,117]) 

add_bIock(’buiIt-in/Product’,[sys,’/’,'Quad_data/mn6’]) 

set_param([sys,'/’,'Quad_data/mn6’],... 

'orientation',2,... 

’inputs','3',... 

’position',[330, 102,355, 138]) 

add_blockCbuilt-in/Outport',[sys,’/','Quad_data/out_r]) 

set_param([sys,7','Quad_data/out_r],... 

'orientation’,2,... 

’position',[25, 115,45, 135]) 

add_block('built-in/Fcn',[sys,’/',’Quad_data/Fcn7']) 

set_param([sys,'/’,’Quad_data/Fcn7’],... 

’orientation',2,... 

’Expr’,’cos(u[l])*,... 

’position'.[505,99, 575,121]) 
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add_block('buiIt-in/Constant',[sys,T/Quad_data/deItaphi']) 

set_param([sys//‘/Quad_data/deltaphi’],... 

’orientation’, 2,... 

’Value\’((90/57.3)+acclimbangle-(93. 12/57.3))',... 
’position',[605, 101,880, 119]) 

add_block('built-in/Constant',[sys,V’,’Quad_data/AC  velocity’]) 
set_param([sys,7','Quad_data/AC  velocity'],... 

'orientation', 2,.,. 

’Value','acver,... 

'position’,[420, 122,470, 138]) 

add3Iock(’built-in/Constant',[sys,'/',’Quad_data/pi']) 

set_param([sys,'/',’Quad_data/pi’],... 

’orientation',2,... 

’Value’, 'pi',... 

’position',[730,161,755,179]) 

add_block('built-in/Sum‘,[sys,’/’,’Quad_data/sum5n  1  ’]) 
set_param([sys,'/','Quad_data/sum5nr],... 

’orientation',2,... 

’inputs',’^-’,... 

’position',[680,153,705,I77]) 

add_block('built-in/Demux',[sys,'/',’Quad_data/Demux2']) 
set_param(  [sy  s,'/’  ,’Quad_data/Demu  x2'  ] ,. .  . 

’orientation',2,... 

’outputs',’2',... 

'position’,[780, 14 1,820, 174]) 

add_block(’buiIt-in/S witch’, [sys,’/’,['Quad_data/S witch  ',l3,'threshoid=pi//2*]]) 
set_param([sys,’/',['Quad_data/S witch  ’,I3,'threshold=pi//2']],... 
'orientation',2,... 

’Threshold', ’90/57.3’,... 

’position’,(840, 144,870, 176]) 

add_block('built-in/Outport’,[sys,'/’,'Quad_data/quad_time_to_target*]) 

set_param([sys,'/’,'Quad_data/quad_time_to_target’],... 

’orientation*,2,... 

’Port’, '2',... 

'position',[740, 200,760,220]) 

add_block('built-in/Fcn',[sys,'/','Quad_data/Fcn5']) 

set_parani([sys,’/’,’Quad_data/Fcn5'],... 

'orientation’,2,... 

'Expr’,'cos(u[l  ])’,... 

’position’,[555, 155,625, 175]) 

add_block('built-in/Constant',[sys,’/’,’Quad_data/front  shot  info']) 
seLparam([sys,'/',’Quad_data/front  shot  info’],... 

'orientation',2,... 

'Value’,’fronLshotJnfo',... 

’position’,(950, 187,1035,203]) 

add_block(’built-in/Inport',[sys,’/’,’Quad_data/acmtheta']) 
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set_param([sys,7','Quad_data/acmtheta*],..- 

’orientation',2,... 

'position', [  1000, 1 53, 1 020, 1 67]) 

add_bIock('built-in/Constant',[sys,'/','Quad_data/rear  shot  info  1 ']) 
set_paratn([sys,'/','Quad_data/rear  shot  infol'],... 

'orientation’,2,... 

'Value','rear_shot_info',... 

'position',[  1035, 142, 11 20, 1 58]) 

add_block('buiIt-in/Constant',[sys,'/','Quad_data/average  missile  velocity’]) 
set_param([sys,’/','Quad_data/average  missile  velocity'],... 

'orientation',2,... 

'Value', 'avg_missilever,... 

'position’,[490, 62,595,78]) 

add_block(’built-in/Note',[sys,'/',’Quad_data/BLOCK;  Quad_data']) 
set_param([sys,'/','Quad_data/BLOCK:  Quad_data'],... 

'position',[3 15,235,320.240]) 

addJine([sys,'/',’Quad_data’],[775, 1 50:725, 1 50;725. 1 60;7 10. 1 60]) 
addJine([sys,'/’,'Quad_data'],[  155, 1 00;  1 35. 100;  135, 1 15;  105,1 15]) 
addJine([sys,’/','Quad_data'],[  1 10, 1 35;  105. 1 35]) 
addJine((sys,’/’,'Quad_data'],[  1 80, 135;175, 1 35]) 
addJine([sys,’/','Quad_data'],[230,70;220,125]) 
addJine([sys,'/’,’Quad_data’],[270, 105;265, 105;265, 140;220, 140]) 
addJine([sys.’/','Quad_data'].[325, 1 20;320. 1 20:320, 1 10;305. 110]) 
addJine([sys.’/','Quad_data’].(485,70;450,70:450.94:325.94;325,100;305,100]) 
add_line([sys,’/',’Quad_data'],[500,l  10;360,1 10]) 
addJine([sys.’/','Quad_data’],[550, 1 65;490. 1 65;490, 1 20;360, 1 20]) 
addJine([sys,'/','Quad_data’],[4 15, 130:360, 130]) 
addJine([sys,’/','Quad_data’].[675, 165;630, 1 65]) 
addJine([sys.’/','Quad_data'],[600.1 10;580,1 10]) 
addJine([sys,’/','Quad_data’].(725, 170;7 10, 1 70]) 
add_line([sys,’/','Quad_data'],[835, 1 60;825, 160]) 
addJine([sys,’/',’Quad_data'],[1030, 150:875, 150]) 
addJine([sys,’/’,'Quad_data’],[945,195:920.195;920,170;875,170]) 
addJine([sys,'/','Quad_data'],[70,125;50,125]) 
add_line([sys,’/','Quad_data'],[995, 160:875, 160]) 
add_line([sys,'/','Quad_data'],(775, 1 65;765,2 1 0]) 
set_param([sys,'/',’Quad_data'],... 

'Mask  Display',’  Quradrant\n  time  to\n  target  \nAC-missile 

\n  Quadrant\n  launch\n  delay’) 


%  Finished  composite  block  ’Quad_data’. 

set_param([sys,’/','Quad_data’],... 

’position’,  [945,5 1 6, 1 035,609]) 


%  Subsystem  'Fire_timing’. 
new_system([sys,’/’,’Fire_timing’]) 

set_param([sys,'/’,'Fire_timing'],’Location’,[  150,509,1 144,901]) 


\ntheta 
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add_block(’built-in/Inport\[sys,7'/Fire_timing/ AC-Missile  theta’]) 
set_param([sys//’,’Fire_timing/AC-Missile  theta’],. •• 

'position',[385, 125,405, 145]) 

add_block(’built-in/Constant',[sys,7,’Fire_timing/Launch  time  safety  factor']) 
set_param([sys,7,'Fire_timing/Launch  time  safety  factor’],... 

’Value', 'launchtime_safetyfactor',... 

’position’,[435,85,585,105]) 

add_block('buiIt-inySum',[sys,’/’,'Fire_timing/S  1 5']) 
set_param([sys,'/’,'Fire_timing/S15’],... 

’position',[635,9l,655,149]) 

add_block(*built-in/Look  Up  Table’, [sys,7,[’Fire_timing/theta  of  missile  in,  ’,13,’time  to  target  out’]]) 
set_param([sys,’/’,['Fire_timing/theta  of  missile  in,  ’,13,’time  to  target  out']],... 
'Input_Values','theta_missileJu',... 

’Output_Values’,’timeJu’,.,. 

’position’,[535, 123,565, 147]) 

add_block('buiIt-in/MATLAB  Fcn',[sys,7,[’Firejiming/zerocheck',13,’(u(l)>0)’]]) 
set_param([sys,’/’,[’Fire_timing/zerocheck’,  1 3,'(u(  1  )>0)']],... 

’MATLAB  Fcn’,’(u(l)>0)’,... 

’position’,[770, 148,840, 182]) 

add_biock(’built-in/Sum',[sys,'/','Fire_timing/Suml9']) 
set_param([sys,’/’,'Fire_timing/Sum  19’],... 

’inputs’,’-^',... 

’position’,[730, 149,750, 176]) 

add_bIock(’built-in/Constant’,[sys,’/’,’Fire_timing/rangestd']) 

set_param([sys,'/',’Fire_timing/rangestd’],... 

’Value',’rangestd’,... 

’position’,[200, 172,265, 188]) 

add_block(’buiIt-in/Product’,[sys,’/',’Fire_timing/m24’]) 

set_param([sys,’/',’Fire_timing/m24’],... 

'position*, [305, 165,330, 185]) 

add_block(’built-in/MATLAB  Fcn’,[sys,7,’Firejiming/division,m']) 
set_param([sys,'/',’Fire_timing/division.m’],... 

’MATLAB  Fcn','division’,... 

'Output  Width',’!’,... 

’position’, [625, 195,675,225]) 

add_bIock(’built-in/Mux’,[sys,’/’,’Fire_timing/Muxl5’]) 

set_param([sys,’/’,'Fire_timing/Muxl5’],... 

’inputs’,’2',... 

’position’,[560, 193,590,222]) 

add_block(’buiIt-in/Inport’,[sys,’/',’Fire_timing/ReIative  Velocity’]) 
set_param([sys,’/’,’Fire_timing/Relative  Velocity’],... 

’Port’,’2’,... 

'position', [480,205, 500,225]) 
add__block('built-in/Sum’,[sys,’/’,’Fire_timing/Sum23']) 
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set_param([sys//’/Fire_timing/Sum23’],... 

'inputs\’++-',... 

'position', (395, 197,420,233]) 

add_bIock('built-in/Constant',[sys,'/’,'Fire_timing/IethaldistJ]) 

set_param([sys,'/','Fire_timing/lethaldisC],... 

'Value', 'lethaldist',... 

'position',[300,2 1 8,370,232]) 

add_bIock(’built-in/Inport',[sys,'/’,[’Fire_timing/AC-Missile’,13,'slantrange’]]) 
seLparam([sys,’/’,['Fire_timing/AC-Missile’,  1 3,'slantrange']],... 

'Port’,3',... 

'position', [250,205,270,225]) 

add_block(*built*in/Outport’,[sys,’/’,'Fire_timing/Fire  Flag']) 
set_param([sys,’/',’Fire_timing/Fire  Flag'],... 

'position’,[880, 155,900, 175]) 


%  Subsystem  [’Fire_timing/hoId6’,13,’sampIe=.25']. 
new_system([sys,'/’,['Fire_timing/hold6’,13,’sample=.25’]]) 

seLparam([sys,’/',[’Fire_timing/ho!d6',13,’sampIe=.25’]],'Location’,[51 1,151,915,322]) 

add_block('buiIt-in/Zero-Order  HoId’,[sys,'/',['Fire_timing/hoId6’,13,’sample=.25/Zero-Order',13,'Hold']]) 
set_param([sys,’/',[’Fire_timing/hold6',13,’sample=.25/Zero-Order',13,'Hold']],... 

'Sample  time',Ts',... 

’position',[100,29, 135,61]) 

add__block('built-in/Gain',[sys,’/',['Fire_timing/hoId6’,l3,'sample=:.25/Gain’]]) 

set_param([sys,7',[’Fire_timing/hold6',13,’sample=.25/Gain']],... 

'Gain’,'l/Ts',... 

'position', [285, 33, 325, 77]) 

add_block(’built-in/Integrator',[sys,'/',['Fire_timing/hold6',I3,'sample=.25/Integrator']]) 

set_param([sys,'/',[’Fire_timing/hoId6',13,'sample=:.25/Integrator’]],... 

'position', [235, 42,260,68]) 

add_block('buiIt-in/Sum’,[sys,'/’,['Fire_timing/hoId6M3,'sample=.25/Sum']]) 

set_param([sys,'ArFire_timing/hold6',13,'sample=.25/Sum’]],.,. 

'inputs','+-*,... 

'position', [190,37, 210, 68]) 

add_bIock('built-in/Unit  Delay’,[sys,’/',['Fire_timing/hold6’,  13,'sampIe=.25AJnit  Delay']]) 
set_param([sys,'/',['Fire_timing/hold6',13,'sample=.25AJnit  Delay']],.., 

'Sample  time',’Ts',... 

'position',[90,93, 140,1 17]) 

add_block('buiIt*in/Inport',[sys,'/',[’Fire_timing/hold6’,13,'sampIe=.25/input']]) 

set_param([sys,'/’,['Fire_timing/hold6',13,'sample=:.25/input']],... 

'position',[25, 35, 45,55]) 

add_block('built-in/Outport’,[sys,'/',['Fire_timing/hold6',13,'sampie=.25/output']]) 

set_param([sys,'/',[’Fire_timing/hold6',13,'sample=.25/output']],,.. 

'position', [345, 45,365,65]) 


205 


addJine([sys//’»[’Fire_timing/hold6M3/sample=.25’]],[330,55;340,55]) 

addJine([sys,7’,['Fire_timing/hold6M3/sample=.25’]],[265,55;280,55]) 

addJine([sys,T,[’Fire_timing/hold6M3,‘sample=,25’]],[215,55;230,55]) 

add  Jine([sys;/’,rFire_timing/hoId6M3;sampIe=.25’]], [145, 105:165, 105;165,60;185, 60]) 

addJine([sys,7\[’Fire_timing/hold6’,13/sample=.25']],[  140,45;  185,45]) 

add  Jine([sys,7',[Tire_timing/hold6M3,*sampIe=.25']], [50,45:95,45]) 

addJine([sys,7',['Firejiming/hold6',13,’sample=.25’]],[65,45:65, 105:85, 105]) 

set_param([sys,'/’,[’Fire_timing/hoId6M3,’sampIe=.25’]],... 

’Mask  Display\’plot(0,0,100,100,[90,70,50,30,10],[60, 40,80,30, 20])',... 

'Mask  Type’, 'First-Order  Hold’,... 

’Mask  Dialogue’, ’First-Order  HoidlSample  Time:') 
set_param([sys,'/’,[’Fire_timing/hoId6’,13,’sample=.25']],... 

'Mask  Trans]ate','Ts=@  I 

’Mask  Help',’lmplements  a  First-Order  sample-and-hold  latch  operating  at  the  sampling 
interval  you  specify.',... 

'Mask  Entries’,'.25\/’) 


%  Finished  composite  block  [’Fire_timing/hoId6’,  13,'sample=,25’]. 

set_param([sys,'/’,['Fire_timing/hold6’,I3,’sample=.25']],... 

'position', [130,154,165,186]) 

add_block('built-in/White  Noise',[sys,’/',[’Fire_timing/White  Noise’,  13,'7’]]) 
set_param([sys,’/',['Fire_timingAVhite  Noise’,  1 3, '7']],,.. 

’Seed’,’noiseseed(7)',... 

’position', [70, 160,90, 1 80]) 

add_block(’built-in/Note’,[sys,'/’,’Fire_timing/BLOCK:  Fire_timing']) 
set_param([sys,'/’,'Fire_timing/BLOCK:  Fire_timing’],... 

’position’, [390,325, 395,330]) 

add  Jine([sys,’/’,'Fire^timing’],[335, 1 75:360, 1 75:360,205:390,205]) 

addJine([sys,’/’,’Fire^timing’],[375,225;390,225]) 

addJine([sys,’/’,'Fire_timing'],[  170, 170:300, 1 70]) 

add  Jine([sys,'/','Fire_timing'],[270, 1 80:300, 1 80]) 

addJine([sys,7','Fire_timing'],[95,170;125,I70]) 

addJine([sys,7’,'Fire^timing’],[660,I20:685,120;685,155;725,155]) 

addJine([sys,’/’,’Fire_timing’],[590,95;615,95:615, 105:630, 105]) 

addJine([sys,7’,’Fire_timing'],[425,215;445,215;445,200:555,200]) 

addJine([sys,7',’Fire^timing’],[570,135:630,135]) 

add  Jine([sys,'/','Fire_timing’],[755, 1 65:765, 1 65]) 

addJine([sys,’/’,'FireJming’],[680,210;705,210:705,170;725,170]) 

add  Jine([sys,’/’,'Fire_timing’],[595,2 10:620,210]) 

add  Jine([sys,7',’Fire_timing’],[4lO,  135:530, 135]) 

add  Jine([sys,'/','Fire_timing’],[845, 165:875,165]) 

addJine([sys,'/',’Fire_timing’],[275,2 15:390,2 15]) 

addJine([sys,’/',’Fire_timing’], [505,215:555,215]) 

set_param([sys,'/','Fire_timing'],... 

'Mask  Display’,’AC-MissiIe  \nTheta  \n\nRelative  Fire  Flag\n  Velocity 

\nAC-Missile  \nslantrange  ’) 


%  Finished  composite  block  'Fire^timing'. 
set_param([sys,'/’,'Fire_timing'],... 
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•position’, [925 ,650, 1 050 J40]) 

add_bIock('buiIt-in/Constant’,[sys, 7’, [’Effective  radius  ’,13, ’of  expendableT]]) 
set_param([sys,’/’, [’Effective  radius  ’,  l3,'of  expendable2’]],... 
’Value',’expeff_radius(2)',... 

•position’, [1350, 450,1445,470]) 

add_block(’built-in/Constant',[sys,’/’, [’Effective  radius  ’,  13,’of  expendable  1’]]) 
set_param([sys, 7', ['Effective  radius  ',13,'of  expendable!']],.. . 

'Value', 'expefOadius(  1 
•position’, [  1 345, 196, 1440,2 14]) 


%  Subsystem  ’Expendable!’. 
new_system([sys,’/’, 'Expendable  1 ']) 

set_param([sys,'/’,'Expendabler],'Location',[76,394, 1090,889]) 

add_block(’built-in/Inport',[sys,’/’,[’Expendable  1/Missile  position’,  1 3,'(x,y ,z)']]) 
set_param([sys,'/’, [’Expendable l/Missile  position',  1 3, ’(x,y,z)']],... 

•position’, [300, 475,320,495]) 

add_bIock('built-in/Inport',[sys,’/’, ['Expendable  I/effective  radius’,  13,’of  expendable’]]) 
set_param([sys,’/',['Expendablel/effective  radius',  13,’of  expendable’]],.., 

•Port’, '5',... 

•position', [760, 420, 780, 440]) 

add_block(’built-in/Product’,[sys,’/’,’Expendablel/Product23’]) 
set_param([sys,'/’, 'Expendable  l/Product23’],... 

’position',[720,675,745,695]) 

add_block('built-in/Product‘,[sys,'/','Expendablel/Product25’]) 
set_param([sys, ’/’, 'Expendable  i/Product25’],... 

’position’,[725,580,750,600]) 

add_block('buiIt-in/Constant',[sys,'/’, 'Expendable  1/Expendable  type']) 
set_param([sys,’/’, 'Expendable  1/Expendable  type'],... 

'Value’,’exp_type’,... 

'position', [860,434,945,456]) 

add_block(’built-in/Demux',[sys,’/’,’Expendablel/Demux5']) 

set_param([sys,’/’,'Expendablel/Demux5’],... 

’outputs’,'3’,... 

'position', [390, 467, 430,503]) 

add_bIock(’built-in/Product’,[sys,’/’,'ExpendabIel/Product24’]) 
set_param(  [sys ,'/’, 'Expendable  1  /Product24'] , . . . 

■position’, [685, 630, 7 10,650]) 

add_biock('built-in/Sum’,[sys,’/’,'Expendable  1/Sum  1 8']) 
set_param([sys,'/’,'Expendablel/Suml8'],... 

’inputs', 

'position’,[860,622, 880,658]) 
add_block(’built-in/Fcn’,[sys,’/’,'Expendable  l/Fcn  14’]) 
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set_param([sys, '/’/Expendable  1  /Fen  1 4’] ».. . 

’Expr',’sqrt(u[l]y,... 

’position', [895,629 ,980,65 1]) 

add_block('built-in/Sum',[sys,'/’, 'Expendable  1/Sum  16']) 
set_param([sys,'/’,'ExpendabIe  1/Sum  16'],... 

'inputs’, 

'position', [540, 480,560, 500]) 

add_block('built-in/Sum',[sys,'/’,*Expendable  1/Sum  15']) 
set_param(  [sys,  '^ , 'Expendable  1/Suml5’],... 

'inputs' 

'position', [575, 435,595,455]) 

add_block('built-in/Sum’,[sys,'/','Expendable  I/Sum  17']) 
set_param([sys,’/','Expendablel/Suml7'],... 

*inputs','+-’,... 

'position', [500,525,520,545]) 

add_block('built-in/Memory’,[sys,’/',['Expendable I/Memory’,  13, *IC:  0’]]) 
set_param([sys,'/',['Expendable  1/Memory’,  13,'IC:  0’]],... 

’position',[  1020,665, 1060,695]) 

add_block('built-in/Mux',[sys,'/’, 'Expendable  l/Mux  1 1']) 
set_param([sys,'/', 'Expendable  1/Mux  1 1'],... 

'inputs’, '6',... 

'position', [1050,372,1085,473]) 

add_block(’buiIt-in/Memory',[sys,'/’,['Expendable  I/Memory  1 ',  1 3,'IC:  0']]) 
set_param([sys,'/',[’Expendable  1/Memory  r,13,'IC:  0’]],... 
’position',[880,325,920,355]) 

add_block(’built-in/Demux',[sys,'/’,’ExpendabIel/Demux4’]) 

set_param([sys,'/’,’Expendablel/Demux4'l,... 

'outputs', '2',.,. 

'position', [  1200,405, 1 240,440]) 

add_bIock('buiIt-in/MATLAB  Fcn',[sys,'/',’Expendable  1/mexphit.m']) 
set_param([sys,'/’,'Expendablel/mexphit.m’],... 

'MATLAB  Fcn',’mexphit’,... 

'Output  Width’, '2',... 

•position’,[l  120,410,1 170,440]) 

add_block('built-in/Demux',[sys,'/’,'ExpendabIel/Demux3']) 

set_param([sys,'/’,’Expendablel/Demux3’],... 

'outputs’,’9’) 

set_param([sys,’/’,’ExpendabIel/Demux3'],... 

'Mask  Display’,'  xexp\n  xvexpXn  yexp\n 

zexpXn  vzexpXn  x  pos  noise\n  y  pos  noiseXn  z  pos  noise') 

set_param([sys,’/',’Expendablel/Demux3’],... 

'position’,[185,138, 280,242]) 

add_block('built-in/Inport’,[sys,’/’,['Expendablel/operationar,13,'flag',13,"]]) 

set_param([sys,'/’,['ExpendabIel/operationar,13,'flag',13,"]],... 

'Port', '6',... 


vyexpVnexp  pos 
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■position', [550, 60, 570.801) 

add_block('built-in/Outport',[sys, ’/'.'Expendable I/exp  pos  ini’]) 
set_param([sys,'/’,'Expendablel/exp  pos  ini'],... 

■Port','2',... 

'position',[540.290,560.3 10]) 

add_block('built-in/Outport',[sys,’/','ExpendabIel/exp  pos  in2']) 
set_param([sys,’/’,'Expendablel/exp  pos  in2'],... 

'orientation',2,... 

’Port','3',... 

'position',  [390,330,4 10,350]) 

add_bIock('built-in/Outport',[sys,'/’,'ExpendabIel/exp  pos  in3']) 
set_param([sys,'/','Expendablel/exp  pos  in3'],... 

'orientation',2,... 

’Port',’4',... 

'position’,[395,380,4 15,400]) 

add_block('built-in/Outport',[sys,'/','ExpendabIe I/STOP  Flag']) 
set_param([sys,'/','ExpendabIe  1/STOP  Flag'],... 

'Port’,'6',... 

■position’,[1295.450,1315,470]) 

add_block('built-in/Outport',[sys,’/','Expendablel/PK']) 

set_param([sys,'/’,'Expendablel/PK'],... 

’Port',’5',... 

'position',[  1 300,405. 1 320,425]) 

add_block('built-in/Outport’,[sys.'/’,’Expendablel/mexslantrange']) 

set_param([sys,'/','Expendablel/mexslantrange'l,... 

'Port'.'7’,... 

’position',[  1095,630,1 1 15,650]) 

add_block('built-in/Mux',[sys,'/','Expendable  1/Mux  15’]) 
set_param([sys,'/’,’Expendablel/Muxl5'],... 

'inputs',’6',... 

'position', [370,64,405,136]) 

add_block('built-in/Outport',[sys,’/',['Expendablel/exp  pos’,13,'(x,vx,y,vy,z,vz)']]) 
set_param([sys,'/’,['Expendablel/exp  pos',13,'(x,vx,y,vy,z,vz)’]],... 

'Port','8',... 

'position’,[450,90,470,110]) 

add_block('built-in/Constant',[sys,’/',’Expendable  1/Duration  of  wash  noise']) 
set_param([sys,'/','Expendable  1/Duration  of  wash  noise'],... 

'Value',' washnoiseduration', . . . 

'position',[7 10,294,830,3 16]) 

add_block('built-in/Meniory',[sys,'/',['Expendablel/Metnory2',13,'IC;  [0  0  0]']]) 
set_param([sys,'/',['Expendable  1/Memory 2',  13,'IC:  [0  0  0]']],... 

'x0','[0  0  0]’,... 

’position',[700,150,740,180]) 

add_block(’built-in/Inport',[sys,'/','Expendablel/time']) 
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set_param([sys,T,’Expendable  1/time’],... 

'Porf,’4',... 

■position', [720,1 10,740.130]) 

add_block('built-in/Inport',[sys,'/’,['ExpendabIel/launch',13,’flag']]) 
set_param([sys,'/',['Expendablel/launch',  1 3,'flag']],... 

'Port’,’2',... 

'position',[645,80,665,100]) 

add_bloclc('built-in/Mux',[sys,’/’,'ExpendabIe  1/Mux  14']) 
set_param([sys,’/','Expendablel/Muxl4’],... 

'inputs','6',... 

'position’.[915,64,950,10l]) 

add_block('built-in/Outport', [sys,'/", 'Expendable  1/exp  pos  in’]) 
set_param([sys,'/','Expendablel/exp  pos  in'],... 

’position’,[1005.75,1025,95]) 

add_block('built-in/Constant',[sys,'/', 'Expendable  1/standard  dev  of  wash  noise']) 
set_param([sys,'/','Expendable  1/standard  dev  of  wash  noise'],... 

'Value'.'washnoisestd',... 

’position',[685.215,765.235]) 

add_block(’built-in/Inport',[sys,'/','ExpendabIel/exp  pos  out']) 
set_param([sys,'/','Expendablel/exp  pos  out'],... 

'Port','3',... 

'position', [120,180, 140,200]) 

add_block('built-in/Mux’,[sys,'/','Expendablel/Muxl6']) 
set_param([sys,'/’,’Expendable  1/Mux  16'],... 

’inputs’,'3’,... 

'position',[350,20 1,385,239]) 
add_line([sys,'/' .'Expendable  r],[575,70;9 10,70]) 
add_line([sys,'/','Expendabler],[745, 120;745,80;9 10,80]) 
addJine([sys,’/','Expendabler],[745,165;770,165:770,85;910,85]) 
addJine([sys,'/’,'Expendabler],[750,685:785,685;785,650;855,650]) 
add_line([sys,'/’,'Expendabler],[755,590:770,590;770,630;855,630]) 
addJine([sys,’/','Expendabler],[985,640;995,640;995,4 15;  1045,415]) 
addJine([sys,'/','Expendablel’],[435,485;535,485]) 
add_line([sys,'/','ExpendabIer],[l  175,425;!  195,425]) 
addJine([sys,'/','Expendabler],[1090,425;l  1 15,425]) 
addJine([sys,’/’,'Expendable  r],[950.445;  1045,445]) 
add_line([sys.'/','Expendablel'],[885,640;890,640]) 
addJine([sys,'/','Expendabler],[715,640;855,640]) 
add_line([sys,’/’,'Expendabler],[600,445;697,445;697,585;720,585]) 
addJine([sys,'/','Expendabler].[600,445;697,445;697,595;720,595]) 
addJine([sys,'/','Expendabler],[565,490;647,490;647,645;680,645]) 
addJine([sys,’/’,'Expendabler],[565,490;647,490;647.635;680,635]) 
addJine([sys,'/','Expendable  1  ■],[525.535;6 1 2,535;6 12,680;7 1 5,680]) 
addJine([sys.’/','Expendabler],[525,535;612,535;612,690;7 15,690]) 
addJine([sys,'/','Expendabler],[325,485;385,485]) 
add_line([sys,’/','Expendabler],[785,430;1045,430]) 

add_line([sys,’/','Expendable  1 '],[  1065,680;  1252,680;  1 252,605;  1 032,605;  1032,460;  1045,460]) 

addJine([sys,’/’,'Expendabler],[435,495;457,495:457,530;495.530]) 

addJine([sys.'/','Expendabler],[435,475;492,475;492,440;570,440]) 
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addJine([sys.7';Expendabler],[985,640;995,640;995,680;1015,680]) 
addJine([sys.’/’.'Expendablel'],(285,150;505. 150:505, 450;570.450]) 
addJine([sys,’/’,'Expendablel’], [285,170:477, 170:477,495:535,495]) 
addJine([sys,T,'Expendabler],(285,190:447,190:447 ,540:495,540]) 
addJine([sys,V','Expendabler],[670,90:717, 90:717,75:910,75]) 
addJine((sys,’/','Expendabler],[610,70:6 10,400: 1045,400]) 
add  Jine([sys.7','Expendabier],[842, 400:842,340:875, 340]) 
addJine((sys,'/’,'Expendabler],[925,340:982,340:982,385: 1045,385]) 
addJine([sys.7','Expendabler],[955,85:1000,85]) 
addJine([sys,7','Expendable  1 '],[  1 45, 190: 1 80, 1 90]) 
addJine([sys,'/’,'Expendable  r],[  1 245,4 1 5: 1 295,4 1 5]) 
addJine([sys,7','Expendabler],[1245,430:1270,430:1270,460:1290,460]) 
add_line([sys,’/’,'Expendabler],[505, 300:535,300]) 
addJine([sys,7','Expendabier],[447,390:420,390]) 
addJine([sys,7','ExpendabIer],[477,340:4 15,340]) 
addJine([sys,‘/’,'Expendabler],[995,640: 1090,640]) 
addJine([sys,7’,’Expendabler],[410, 100:445, 100]) 
addJine([sys,7','Expendabler],[285,150:305, 150:305,75:365,75]) 
addJine([sys,7','Expendabler],[285, 160:3 10, 160:3 10,85:365,85]) 
addJme([sys,7','Expendabler],[320, 170:320,95:365,95]) 
addJine([sys,T,'Expendabler],[285, 180:325, 180:325, 105:365, 105]) 
add_line([sys,'/','Expendabler], [330, 190:330,1 15:365,1 15]) 
add_line([sys,7','Expendabler],[835,305:885,305:885,95:9 10,95]) 
addJine([sys,7’,'Expendable  1  '],[285 ,2 1 0:345,2 1 0]) 
add_line([sys,7','Expendabler],[285,220:345,220]) 
add_line([sys,7','Expendabler],[285,230:345,230]) 
addJine([sys,7','Expendabler],[390,220:560,220:560, 165:695, 165]) 
addJine([sys,7','Expendabler],[770,225:780,225:780, 180:875, 180:875,90:910,90]) 
addJine([sys,7','Expendabler],[285,200:335,200:335, 125:365, 125]) 

set_param([sys,'/’,'Expendabler],- 

'Mask  DisplayVMissile  exppos  in\npos  (x,y,z)  \n  Exp  X  pos\n 

Launch  Flag  \n  Exp  Y  pos\nexp  pos  \n  out  Exp  Z  pos\n\nTime 

PK\n  Stop  flagVnEffective  \nradius  mexslantrange\n\nOperational  \nflag 

Exp  pos  (x,y,z)') 


%  Finished  composite  block  'Expendable  1 '. 

set_param([sys,'/','ExpendabIer],... 

'position',[1480,71, 1615,249]) 


%  Subsystem  'Expendable2'. 
new_system([sys,'/',’Expendable2’]) 

set_param([sys,'/','Expendable2'],'Location’,[66,344, 1080,839]) 

add_block('built-in/Inport',[sys,’/',['Expendable2/Missile  position',  13,'(x,y,z)']]) 
set_param([sys,'/',['Expendable2/Missile  position',  13,'(x,y,z)']],... 
'position',[300,475,320,495]) 

add_block('built-in/Inport',[sys,'/’,['Expendable2/effective  radius',  13,'of  expendable']]) 
set_param([sys,'/',['Expendable2/effective  radius',  13,'of  expendable']],.., 

'Port','5',... 

'position',[760.420,780,440]) 
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add_block('built-in/Product',[sys,7,'Expendable2/Product23‘]) 

set_param([sys//’/Expendabie2/Product23'],... 

'position’,[720, 675,745, 695]) 

add_blockCbuilt-in/Product',[sys,7,’Expendable2/Product25’]) 

set_parani([sys,7’,’Expendable2/Product25’]v- 
■position', [725, 580,750, 600]) 

add_block('built-in/Constant',[sys,T,'Expendable2/Expendable  type’]) 
set_param([sys,’/','Expendable2/Expendable  type'],... 

'Value', ’exp_type’,... 

’position’,[860,434,945,456]) 

add_block(’built-in/Demux',[sys,'/’,'Expendable2/Demux5’]) 

set_param([sys,'/','Expendable2/Demux5’],... 

'outputs', '3',... 

■position’, [390,467,430, 503]) 

add_bIock('built-in/Product’,[sys,V’,’ExpendabIe2/Product24’]) 

set_param([sys,'/’,’Expendable2/Product24’],... 

■position’, [685,630,7 10,650]) 

add_block('buiIt-in/Sum',[sys,'/’,'ExpendabIe2/Suml8’]) 
set_param([sys,'/’,’ExpendabIe2/Sum  1 8'],... 

’inputs’,'+++',... 

’position', [860,622,880,658]) 

add_block(’buiIt-in/Fcn’,[sys,'/’,'ExpendabIe2/Fcnl4’]) 
set_param([sys,'/’,’Expendable2/Fcn  14’],... 

'Expr’,’sqrt(u[  I  ])',.;. 

'position’,[895,629,980,65 1  ]) 

add_bIock(’built-in/Sum’,[sys,’/’,'ExpendabIe2/Suml6']) 
set_param([sys,’/’,’Expendable2/Sum  16'],... 

'inputs’, 

'position', [540,480,560, 500]) 

add_block('buiIt-in/Sum',[sys,'/’,’ExpendabIe2/Suml5’]) 

set_parani([sys,’/’,'Expendable2/Sunil5’],... 

'inputs','+-’,... 

'position’,[575,435,595,455]) 

add_biock(’built»in/Sum',[sys,'/','Expendable2/Suml7']) 

set_param([sys,'/’,’Expendable2/Suml7'],... 

’inputs’,'+-’,... 

'position', [500, 525,520,545]) 

add_block('built-in/Memory’,[sys,'/’,[’ExpendabIe2/Memory',13,’IC:  0’]]) 
set_param([sys,'/',[’Expendable2/Memory',  1 3,’IC:  0']],... 

■position’,[  1020,665, 1 060,695]) 

add_block(’built-in/Mux’,[sys,'/',’ExpendabIe2/Mux  1 1 ']) 
set_param([sys,'/','Expendable2/Muxl  1'],... 

’inpuis',’6’,... 
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•position’, [1050, 372, 1085,473]) 

add_block('built'in/Memory’,[sys,T,['Expendable2/Memoryr,13,'IC:  0']]) 
set_param([sys,'/',[‘ExpendabIe2/Memory  l’,13,’IC:  0’]],... 

’position’, [880,325, 920,355]) 

add_block('built-in/Demux’,[sys,'/’,‘Expendable2/Demux4’]) 

set_param([sys,’/’,'Expendable2/Demux4’],... 

'outputs’,'2’,... 

•position’,[1200,405,1240,440]) 

add_block('buiIt-in/MATLAB  Fcn',[sys,'/’,’Expendable2/mexphit.m’]) 
set_param([sys,'/',’Expendable2/mexphit.m'],... 

'MATLAB  Fcn’,’mexphit'„.. 

’Output  Width’,’2’,... 

’position’,[  1120,410, 1 170,440]) 

add_block('buiIt-in/Demux',[sys,’/’,’ExpendabIe2/Demux3‘]) 

set_param([sys,7’,’Expendable2/Demux3'],... 

’outputs', '9') 

set_param([sys,'/','ExpendabIe2/Demux3’],... 

’Mask  Display’,’  xexp\n  xvexpVn  yexp\n 

zexp\n  vzexp\n  x  pos  noise\n  y  pos  noise\n  z  pos  noise') 
set_param([sys,'/’,’Expendable2/Demux3’],... 

’position’,[185, 138,280,242]) 

add_block(’built-in/Inport',[sys,’/’,[’ExpendabIe2/operationar,13,’fIag',l3,”]]) 

set_param([sys,'/’,['Expendab!e2/operationar,13,’flag',13,”]],... 

’Port’,’6’,... 

’position’,[550,60,570,80]) 

add_block('buiIt-in/Outport',[sys,’/',’Expendable2/exp  pos  in  I  ’]) 
set_param([sys,'/’,’Expendable2/exp  pos  ini’],... 

’Port’,'2’,... 

’position',[540,290,560,3l0]) 

add_block('built-in/Outport',[sys,’/’,'ExpendabIe2/exp  pos  in2’]) 
set_param([sys,'/',’ExpendabIe2/exp  pos  in2’],... 

’orientation',2,.., 

’Port’, ’3’,... 

’position’, [390,330,410,350]) 

add_block(’built-in/Outport',[sys,’/’,’ExpendabIe2/exp  pos  in3’]) 
set_param([sys,'/’,’Expendable2/exp  pos  in3’],... 

’orientation’, 2,... 

’Port’,’4’,... 

’position', [395,380,4 15,400]) 

add_block(’built-in/Outport',[sys,’/’,’ExpendabIe2/STOP  Flag']) 
set_param([sys,’/’,'Expendable2/STOP  Flag’],... 

’Port’,’6’,... 

’position’,[  1295,450, 1 3 15,470]) 

add_block(’buiIt-in/Outport',[sys,’/’,'Expendable2/PK’]) 

set_param([sys,'/’,’Expendable2/PK’],... 
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‘Port’;5\... 

'position', [  1300,405, 1 320,425]) 

add_block('built-in/Outport',[sys,7',’Expendable2/mexslantrange']) 

set_param([sys,'/’,'Expendable2/mexslantrange'],... 

‘Port',7’,... 

'position’,[1095,630,l  1 15,650]) 

add_block(’buiIt-in/Mux',[sys,7’,’Expendable2/Muxl5’]) 

set_param([sys,’/',’Expendable2/Muxl5'],... 

'inputs', '6',... 

'position’,[370,64,405,136]) 

add_bIockCbuilt-in/Outport',[sys,'/’,[’Expendable2/exp  pos’,  1 3,'(x,vx,y,vy ,z,vz)’]]) 
set_param([sys,'/',[’Expendable2/exp  pos',13,’(x,vx,y,vy,z,vz)’]],... 

'Port',’8',... 

'position',[450,90,470, 1 10]) 

add_block(’built-in/Constant’,[sys,'/’,'Expendable2/Duration  of  wash  noise']) 
set_param([sys,’/’,’ExpendabIe2/Duration  of  wash  noise’],... 
'Valuc’,'washnoiseduration’,... 

'position',[710,294,830,3l6]) 

add_block('built-in/Memory\[sys,'/',['Expendable2/Memory2',13,’IC:  [0  0  0]']]) 
set_param([sys,’/',[’Expendable2/Memory2',13,'IC:  [00  0]']],... 

'x0',’[00  0]',... 

'position', [700, 150,740,180]) 

add_block('built-in/Inport’,[sys,’/’,'ExpendabIe2/time’]) 

set_param([sys,’/',’Expendable2/time’],... 

'Port’,’4’,... 

'position', [720,1 10,740,130]) 

add_biock('buiIt-in/Inport’,[sys,’/’,['Expendab!e2/Iaunch',13,'flag']]) 
set_param([sys,'/',[’Expendable2/launch',  1 3,'flag']],... 

'Port’,'2',... 

'position', [645, 80, 665, 100]) 

add_block('built-in/Mux',[sys,'/','ExpendabIe2/Muxl4’]) 

set_param([sys,’/’,’Expendable2/Muxl4'],... 

’inputs','6',... 

'position', [915, 64,950, 101]) 

add_block('built-in/Outport',[sys,'/','ExpcndabIe2/exp  pos  in’]) 
set__parani([sys,’/’,'Expendable2/exp  pos  in'],... 

'position',[l005,75, 1025,95]) 

add_block('buiIt-in/Constant’,[sys,'/’,’Expendable2/standard  dev  of  wash  noise']) 
set_param([sys,'/',’Expendable2/standard  dev  of  wash  noise'],... 
'Value’,'washnoisestd',... 

'position', [685, 2 15,765,235]) 

add_bIock(’buiIt-in/Inport’,[sys,'/’,'ExpendabIe2/exp  pos  out']) 
set_parani([sys,’/’,'Expendable2/exp  pos  out’],... 

'Port’,'3’,... 
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■position', [120, 180, 140, 200]) 

add_bloclc('built-in/Mux',[sys,’/’,'Expendabie2/Muxl6']) 

set_param([sys,'/','Expendable2/Muxl6’],... 

'inputs','3',... 

■position’,  [350,20 1 ,385 ,239 1) 
addJine([sys,'/','Expendable2'],[575,70:9 10,70]) 
addJine([sys,7','Expendable2’],[745,120;745,80;910,80]) 
addJine([sys,'/','Expendable2'],[745,165;770.165;770,85;910,85]) 
addJine([sys.’/’,'ExpendabIe2'],[750,685;785,685;785,650;855,650]) 
add_line([sys,'/','Expendable2'],[755,590:770,590;770,630:855,630]) 
addJine([sys,'/’,’Expendable2’],[985,640;995,640;995,415;1045,415]) 
addJine([sys,’/','Expendable2'],[435,485;535,485]) 
addJine([sys,'/’,'Expendable2'],[l  175,425;!  195,425]) 
addJine([sys.'/','Expendable2’],[1090,425;  1 1 15,425]) 
addJine([sys,'/'.'Expendable2'],[950,445;1045,445]) 
add_line([sys,'/','Expendable2’],[885,640;890,640]) 
add_line([sys,’/','Expendable2'],[715,640;,855,640]) 
addJine([sys.'/’,'ExpendabIe2'],[600,445;697,445;697,585;720,585]) 
addJine([sys,'/','Expendable2'],[600,445;697,445;697,595;720,595]) 
addJine([sys.7’,'Expendable2’],[565,490;647,490;647,645;680,645]) 
add_line([sys,’/','Expendable2'],[565,490;647,490;647,635:680,635]) 
addJine([sys,7’,'Expendable2’],[525,535;6l2,535;612,680;715,680]) 
addJine([sys,'/','Expendable2’],[525,535;6l2,535;612,690;715,690]) 
addJine([sys.’/','Expendable2'],[325,485;385,485]) 
addJine((sys,'/','Expendable2'],[785,430;1045,430]) 

addJine([sys.'/','Expendable2'],[  1065,680;  1252,680;  1252,605;  1032,605;  1032,460;  1045,460]) 

addJine([sys,'/','Expendable2'],[435,495;457,495;457,530;495,530]) 

addJine([sys,’/','Expendable2'],[435,475;492,475;492,440;570,440]) 

addJine([sys,'/','Expendable2'],[985,640;995,640;995,680;  1 0 1 5,680]) 

addJine([sys,'/','Expendable2'],[285,150;505,I50;505,450;570,450]) 

addJine([sys,'/’,'Expendable2’],[285, 170;477, 170;477,495;535,495]) 

addJine([sys,'/’,'Expendable2’],[285,190;447,190;447,540;495,540]) 

addJine([sys,’/','Expendable2’],[670,90;7l7,90;717,75;9 10,75]) 

addJine([sys,'/','Expendable2'],[610,70;610,400;1045,400]) 

addJine([sys,'/','Expendable2'],[842,400;842,340;875,340]) 

addJine([sys,7','Expendable2'],[925,340;982,340;982,385;1045,385]) 

add_line([sys,'/','Expendable2'], [955, 85;  1000.85]) 

addJine([sys.’/’,'Expendable2'],[145,190;180.190]) 

add_line([sys,’/','Expendable2'],[  1245,4 15;  1 295,4 1 5]) 

addJine([sys,'/','Expendable2'],[1245,430;1270.430;1270,460;1290.460]) 

add_line([sys,'/','Expendable2'],[505,300;535,300]) 

add_line([sys,'/','Expendable2'],[447,390;420,390]) 

add_line([sys,'/','Expendable2'],[477,340;4 15,340]) 

add_line([sys,7','Expendable2'],[995,640;  1090,640]) 

add_line([sys,'/','Expendable2'],(410,100;445,100]) 

add_line([sys,’/',’Expendable2'],[285,150;305,150;305,75;365,75]) 

add_line([sys,’/','Expendable2'],[285,l60;310,160;310,85;365,85]) 

add_line([sys,'/','Expendable2’],[320,170;320,95;365,95]) 

add_line([sys,’/','Expendable2'],[285,180;325,180;325,105;365,105]) 

addJine([sys,'/','ExpendabIe2'],[330, 190;330,1 15;365, 1 15]) 

addJine([sys,'/’,'Expendable2'],[835,305;885,305;885,95;910,95]) 

add_line([sys,’/','Expendable2'],[285,210;345,210]) 

addj  ine([sys,'/'  ,'Expendable2']  ,[285 ,220;345 ,220]) 

addJine([sys,7',’ExpendabIe2'],(285,230;345,230]) 
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addJine([sys,7’;Expendable2‘],[390,220;560,220;560,165;695,165]) 
add  Jine([sys;/VExpendabIe2’],[770, 225:780, 225;780,180;875J80;875,90;910, 90]) 
addJine([sys,7’;Expendable2’],[285,200;335,200;335, 125:365, 125]) 
set_param([sys,'/’/ExpendabIe2’],.,. 

'Mask  Display’/Missiie  exppos  in\npos  (x,y,z)  \n  Exp  X  pos\n 

Launch  Flag  \n  Exp  Y  pos\nexp  pos  \n  out  Exp  Z  pos\n\nTime 

PK\n  Stop  flag\nEffeciive  \nradius  mexslantrange\n\nOperationaI  \nflag 

Exp  pos  (x,y,z)’) 


%  Finished  composite  block  'Expendable^. 

set_param([sys,7','Expendable2’],... 

'position',!  15 10,326, 1645,504]) 


%  Subsystem  'Expendable3'. 
new_system([sys,'/','Expendable3']) 

set_param([sys,'/',’Expendable3’],’Location', [66,344, 1080,839]) 

add_biock('buiIt-in/Inport',[sys,'/*,[’Expendable3/MissiIe  positionM3,’(x,y,z)']]) 
set_param([sys,'/',['Expendable3/Missile  position’,! 3,'(x,y,z)']],... 

'position', [300,475,320,495]) 

add_block('built4n/Inport’,[sys,*/*,['Expendable3/effective  radius',  13, 'of  expendable’]]) 
set_param([sys,’/',[’Expendable3/effective  radius',  13,'of  expendable']],... 

'Port', '5',... 

'position', (760, 420,780,440]) 

add_block(’built-in/Product’,[sys,7','Expendable3/Product23’]) 

set_param([sys,’/','Expendable3/Product23’],... 

'position',[720, 675,745,695]) 

add_block('buiIt-in/Product',[sys,’/',’Expendable3/Product25’]) 

set_param([sys,'/','Expendable3/Product25’],... 

'position', (725,580, 750,600]) 

add_block('built-in/Constant',[sys,'/’,’Expendable3/Expendable  type’]) 
set_param([sys,'/',’Expendable3/Expendable  type'],... 

’Value',’exp_type',... 

'position', [860,434,945, 456]) 

add_block('buiIt-in/Demux',[sys,7','Expendable3/Demux5']) 

set_param([sys,'/’,'Expendable3/Demux5'],... 

'outputs', '3',... 

'position', [390,467, 430, 503]) 

add_block(’built-in/Product',[sys,’/’,'ExpendabIe3/Product24’]) 

set_param([sys,'/','Expendable3/Product24'],... 

’position’,[685, 630, 7 10,650]) 

add_block('built-in/Sum',[sys,'/’,'Expendable3/Sum  1 8']) 
set_param([sys,'/’,'Expendable3/Suml8’],... 

'inputs', 
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‘position*, [860, 622,880, 6581) 

add_block('bui!t-in/Fcn',[sys,'/’,'Expendable3/Fcnl4']) 

set_param([sys,'/’,’Expendable3/Fcnl4’],... 

’Expr’,’sqrt(u[l 

‘position*, [895, 629, 980,65 1]) 

add_biock{'built-in/Sum*,[sys,'/’,’Expendabie3/Suml6’]) 

set_parani([sys,’/*,'Expendable3/Suml6'],... 

'inputs', 

'position',[540, 480, 560,500]) 

add_biock(*built-in/Sum*,[sys,’/',’Expendable3/Suml5']) 

set_param([sys,'/’,'Expendable3/Suml5*],... 

'inputs', . 

'position', [575,435,595,455]) 

add_block(*built-in/Sum',[sys,’/’,'Expendable3/SumI7’]) 

set_param([sys,'/','Expendable3/Suml7’],... 

'inputs’,'^-',... 

'position', [500,525, 520,5451) 

add_bIock('built-in/Memory',[sys,'/*,[*Expendable3/Memory',13,’IC:  0*]]) 
set_param([sys,'/',['Expendable3/Memory',I3,'IC:  0*]],... 

’position*,[  1020,665, 1060,695]) 

add_biock('built-in/Mux',[sys,’/','Expendable3/Muxl  I’]) 
set_param([sys,'/’,'Expendable3/Muxl  1'],... 

'inputs’, '6*,... 

'position',[  1050,372, 1085,4731) 

add_block(’buiIt-in/Memory',(sys,’/’,['ExpendabIe3/Memory  r,13,'IC:  0']]) 
set_param([sys,'/',[’Expendable3/Memory  1  ’,  1 3,'IC:  0']],... 

'position', [880,325,920,355]) 

add_block('built-in/Demux',[sys,'/','Expendable3/Demux4']) 

set_parani([sys,’/','Expendable3/Demux4'],... 

'outputs', '2',... 

’position',[  1200,405, 1 240,440]) 

add_block('built-in/MATLAB  Fcn',[sys,’/’,’Expendable3/mexphit.m']) 
set_param([sys,'/','Expendable3/mexphit.m'],... 

'MATLAB  Fcn',’mexphit',... 

'Output  Width', '2',... 

'position’,[l  120,410,1 170,440]) 

add_bIock('bui!t-in/Demux*,[sys,'/’,'ExpendabIe3/Demux3’]) 

set_param([sys,'/','Expendable3/Deniux3'],.,. 

'outputs’, '9') 

set_param([sys,'/','ExpendabIe3/Demux3’],... 

'Mask  Display*,'  xexp\n  xvexpVn  yexp\n 

zexp\n  vzexp\n  x  pos  noise\n  y  pos  noise\n  z  pos  noise') 
set_param([sys,'/','Expendable3/Demux3'],... 

'position',[  185, 138,280,242]) 
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add_block('built-in/Inport',[sys,7,['ExpendabIe3/operationalM3/flagM3,"]]) 
set_param([sys,'/*,['Expendable3/operationar,  13,*flag\  1 3,"]],... 

•Porf;6\... 

’position', [550»60, 570, 80]) 

add_block('buiIt-in/Outport',[sys,’/’,'Expendable3/exp  pos  ini’]) 
set_param([sys,’/’,’Expendable3/exp  pos  ini'],... 

'Port','2',... 

'position', [540,290, 560, 3 10]) 

add_blockCbuilt-in/Outport',[sys,’/’,'Expendable3/exp  pos  in2*]) 
set_param([sys,’/','Expendable3/exp  pos  in2’],... 

'orientation',2,... 

'Port', '3',... 

'position’,[390,330,4 10,350]) 

add_block('built-in/Outport',[sys,'/','Expendable3/exp  pos  in3']) 
set_param([sys,’/’,’ExpendabIe3/exp  pos  in3’],... 

'orientation', 2,... 

’Port’,’4',... 

'position', [395 ,380,4 15,400]) 

add_bIock('buiIt-in/Outport',[sys,'/','Expendab!e3/STOP  Flag’]) 
set_param([sys,’/’,'Expendable3/STOP  Flag'],... 

’Port’,’6’,... 

'position',[  1295,450, 13 15,470]) 

add_biock('buiIt-in/Outport',[sys,‘/',’ExpendabIe3/PK']) 

set_param([sys,'/’,'Expendable3/PK’],... 

'Port*,’5',... 

'position’,[  1 300,405, 1 320,425  ]) 

add_block(’built-in/Outport*,[sys,'/’,'Expendable3/mexslantrange']) 

set_param([sys,'/’,'Expendable3/mexslantrange’],... 

'Port’,'7',... 

'position', [1095,630,1 1 15,650]) 

add_bIock('built"in/Mux',[sys,'/','Expendable3/Muxl5’]) 

set_param([sys,'/','ExpendabIe3/Muxl5'],... 

'inputs', '6',... 

'position',[370,64,405,136]) 

add_bIock('built-in/Outport',[sys,'/',[’Expendable3/exp  pos’,  1 3,’(x, vx,y,vy,z,vz)’]]) 
set_param([sys,'/’,['Expendable3/exp  pos’,13,’(x,vx,y,vy,z,vz)']],... 

'Port’,’8’,... 

•position',[450,90,470,110]) 

add_block(’built-in/Constant',[sys,'/’,'ExpendabIe3/Duration  of  wash  noise']) 
set_param([sys,’/','Expendable3/Duration  of  wash  noise’],... 

'Value', 'washnoiseduration',... 

’position’,[7 10,294,830,3 16]) 

add_bIock('buiIt-in/Meniory’,[sys,'/’,[’ExpendabIe3/Memory2’,l3,’IC:  [0  0  0]*]]) 
set_param([sys,'/',['Expendable3/Memory2',l3,’IC:  [0  0  0]']],... 

’x0’,’[0  0  0]’,... 
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■position', [700, 1 50,740, 1 80]) 

add_block('buiIt-in/Inport’,(sys,'/’,'Expendable3/tinie’]) 

set_param([sys,'/’,'Expendable3/time'],... 

’Port',’4’,... 

'position',[720,l  10,740, 130]) 

add_block('built-in/Inport',[sys,'A['Expendable3/launch',13,'flag’]]) 
set_param([sys,'/',[’Expendable3/launch',  1 3, ’flag']],... 

'Port', '2',... 

’position',[645,80,665,100]) 

add_block('built-in/Mux',[sys,'/','Expendable3/Muxl4']) 

set_param([sys,'/’,'Expendable3/Muxl4'],... 

’inputs','6',... 

'position’,[9 15,64,950, 1 01  ]) 

add_block('built-in/Outport',[sys,'/','Expendable3/exp  pos  in']) 
set_param([sys,'/’.'ExpendabIe3/exp  pos  in'],... 

■position’,[1005,75, 1025,95]) 

add_block(’built-in/Constant',[sys,'/','ExpendabIe3/standard  dev  of  wash  noise']) 
set_param([sys,'/','Expendable3/standard  dev  of  wash  noise'],... 

'Value', 'washnoisestd',... 

'position',[685,215,765,235]) 

add_block('built-in/Inport',[sys,'A’Expendable3/exp  pos  out']) 
set_param([sys,'/','Expendable3/exp  pos  out'],... 

'Port', '3',... 

’position’.[120,180, 140,200]) 

add_block('built-in/Mux',[sys,'/',’Expendable3/Mux  1 6']) 
set_param([sys,'/','Expendable3/Muxl6'],... 

'inputs','3',... 

'position',[350,20I.385,239]) 
add_line([sys,'/’,'Expendable3’],[575,70;9 1 0,70]) 
addJine([sys,'/’,'Expendable3'].[745, 120:745,80:9 10,80]) 
addJine([sys,'A'Expendable3’],[745, 165:770,165:770,85:910,85]) 
add_line([sys.’/’,'Expendable3'], [750,685:785,685:785,650:855,650]) 
add_line([sys,’/’,'Expendable3'].[755,590:770,590:770,630:855,630]) 
add_line([sys,'/','Expendable3’], [985, 640:995,640:995, 415:1045, 415]) 
add_line([sys,'A'Expendable3'],[435, 485:535,485]) 
addJine([sys,'A'Expendable3'],[l  175,425:1 195,425]) 
add_line([sys,’A'Expendable3'], [1090,425: 1 1 15,425]) 
add_line([sys,'/','Expendable3'],[950,445:1045,445]) 
add_line([sys,'/',’Expendable3'], [885,640:890,640]) 
addJine([sys,'A'Expendable3'],[715,640:855,640]) 
addJine([sys,'A'Expendable3'],[600,445:697,445:697,585:720,585]) 
addJine([sys,’/',’Expendable3’],[600, 445:697,445:697, 595:720,595]) 
addJine([sys,'/',’Expendable3'],[565,490:647,490:647, 645:680,645]) 
add_line([sys,'A'Expendable3’],[565, 490:647,490:647,635:680,635]) 
add_line([sys,'A'Expendable3'],[525, 535:612,535:612,680:715,680]) 
addJine([sys,'/’,'Expendable3'],[525, 535:612,535:612, 690:715,690]) 
addJine([sys,'A'Expendable3'],[325,485:385,485]) 
add_line([sys,'A'Expendable3'],[785, 430: 1045,430]) 
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addJine([sys,7','Expendable3'].[1065.680:l252,680;1252,605:1032,605;1032.460;l045.460]) 

add_line([sys,'/',’Expendable3'],[435,495;457, 495:457, 5 30:495,530]) 

addJine([sys,7',’ExpendabIe3'],[435,475:492,475:492,440:570,440]) 

addJine([sys,'/','Expendable3'],[985, 640:995,640:995,680:1015,680]) 

addJine([sys.7','ExpendabIe3’],[285,150:505, 150:505,450:570,450]) 

addJine([sys,7','Expendable3'],[285,170:477,170:477,495:535,495]) 

addJine([sys,7','Expendable3’],[285,190:447,190:447, 540:495,540]) 

addJine([sys,’/’,'Expendable3’], [670,90:717, 90:717,75:910,75]) 

addJine([sys,7','Expendable3'],[610,70:610,400:1045,400]) 

addJine([sys,7','Expendable3'],[842,400:842, 340:875,340]) 

addJine([sys,’/’,'Expendable3’],[925,340:982.340:982,385:1045,385]) 

addJine([sys,7','ExpendabIe3’],[955,85:1000,85]) 

add_line([sys,'/','Expendable3’],[  145, 190: 1 80, 1 90]) 

addJine([sys,7’,'Expendable3'],[  1 245,4 15:1 295,4 1 5] ) 

add_line([sys,7','Expendable3'],[  1 245,430;  1 270.430;  1 270,460;  1 290,460]) 

add_line([sys,7',’Expendable3'],[505, 300:535,300]) 

addJine([sys.’/’,’Expendable3’],[447,390;420.390]) 

addJine([sys,7',’Expendable3’],[477,340;4 15,340]) 

addJine([sys.7','Expendable3'],[995,640;  1090.640]) 

addJine([sys,7','Expendable3'],(4 10, 100:445, 100]) 

addJine([sys,7’,'Expendable3’],[285,150;305, 150:305,75:365,75]) 

addJine([sys,7','Expendable3’],[285, 160:3 10, 160:3 10,85:365,85]) 

addJine([sys,7','Expendable3’],[320,170;320,95:365,95]) 

addJine([sys,7','Expendabie3'],[285,180:325. 180:325, 105:365, 105]) 

addJine([sys,7',’Expendable3'],[330, 190:330, 1 15;365, 115]) 

addJine([sys.r,'Expendable3'],[835,305;885,305;885,95;910,95]) 

addJine([sys,r,’Expendable3'],[285,210:345,210]) 

add_line([sys,7','Expendable3'],i285,220;345,220]) 

addJine([sys.7','Expendable3’],[285,230;345,230]) 

addJine([sys,7','Expendable3’],[390,220;560,220;560, 1 65:695, 1 65]) 

addJine([sys,7','Expendable3'],[770,225;780,225;780,180;875,180;875,90;910,90]) 

addJine([sys,7’,'Expendable3‘],[285,200;335,200:335, 125:365, 125]) 

set_param([sys,'/',’Expendable3‘],- 

'Mask  Display'.’Missile  exppos  inVnpos  (x,y,z)  \n  Exp  X  pos\n 

Launch  Flag  \n  Exp  Y  pos\nexp  pos  \n  out  Exp  Z  pos\n\nTime 

PK\n  Stop  flag\nEffective  \nradius  mexslantrange\n\nOperational  \nflag 

Exp  pos  (x,y,z)') 


%  Finished  composite  block  'Expendable3'. 

set_param([sys,'/',’Expendablc3'],... 

'position', [1560,58 1,1 695,759]) 


%  Subsystem  'Expendable6'. 
new_system([sys,'/','Expendable6']) 

set_param(['sys,'/','Expendable6'],'Location',[66.344, 1080,839]) 

add_block('built-in/Inport',[sys,'/’,['Expendable6/Missile  position',  13,'(x,y,z)']]) 
set_param([sys,'/',['Expendable6/Missile  position',  13,'(x,y,z)']],... 

'position', [300,475,320,495]) 

add_block('built-in/Inport',[sys.'/',['Expendable6/effective  radius',  13,'of  expendable']]) 
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set_param([sys,7,[’Expendable6/effective  radiusM3,’of  expendable']],... 
'Port','5\... 

•position’, [760,420,780,440]) 

add_block('buiIt-in/Product‘,[sys,*/’,’Expendable6/Product23']) 

set_param([sys,'/','Expendable6/Product23'],... 

•position', [720, 675,745,695]) 

add_block('built-in/Product’,[sys,’/','Expendable6/Product25’]) 

set_param([sys,V’,’Expendable6/Product25’],... 

'position',[725, 580,750,600]) 

add_block('built-in/Constant’,[sys,’/’,’ExpendabIe6/Expendable  type’]) 
set_parann([sys,7','Expendable6/Expendable  type’],... 

’Value','exp_type’,... 

’position’, [860,434, 945,456]) 

add_block(’built-in/Demux’,[sys,’/’,’Expendable6/Demux5’]) 

set_param([sys,’/’,’Expendable6/Demux5’l„.. 

'outputs’, '3',... 

’position’,[390,467,430,5031) 

add_block(’built-in/Product',[sys,’/’,'Expendable6/Product24']) 

set_param([sys,'/’,'Expendab!e6/Product24’],... 

'position', [685, 630, 7 10,650]) 

add_biock('buiIt-in/Sum',[sys,’/’,’Expendable6/Sum  1 8’]) 
set_param([sys,'/’,'Expendable6/Suml8’]„.. 

'inputs', 

'position', [860, 622,880,658]) 

add_bIock('built-in/Fcn’,[sys,’/’,’ExpendabIe6/Fcnl4']) 

set_param([sys,'/','ExpendabIe6/Fcnl4’],... 

'Expr’,'sqrt(u[i  ])',... 

'position', [895, 629,980,65 1  ]) 

add_bIock(’buiIt-in/Sum',[sys,’/','Expendab!e6/Suml6']) 
set_param([sys,'/’,’Expendable6/Suni  16'],... 

^inputs','-!-',... 

'position', [540, 480,560,500]) 

add_bIock(’built-in/Sum',[sys,'/’,’Expendable6/Suml5']) 
set_param([sys,’/','Expendable6/Sum  15'],... 

’inputs','+-’,... 

'position', [575, 435,595, 455]) 

add_block(’built-in/Sum',[sys,'/','Expendable6/Suml7']) 

set_param([sys,’/’,’Expendable6/Suml7’],... 

'inputs', 

'position', [500,525,520,545]) 

add_biock(’built-in/Memory’,[sys,'/’,['Expendable6/Memory',13,'IC:  0’]]) 
set_param([sys,'/',[’Expendable6/Memory',13,’IC:  0']],... 

'position’,[  1020,665, 1060,695]) 
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add_block('built-in/Mux\[sys,V\'Expendable6/Mux  1 1  *]) 
set_param([sys,7\'Expendable6/Mux  1 1 
'inputs', ’6’,... 

'position', [1050, 372,1085, 4731) 

add_block('buiIt-in/Memory',[sys,'/’,[’Expendable6/Memoryr,13,'IC:  0']]) 
set_parani([sys,'/',['Expendable6/Memory  r,13,'IC:  0']],... 

’position’,[880,325, 920,355]) 

add_block('built-in/Demux',[sys,7',’Expendable6/Demux4’]) 

set_param([sys,’/',’Expendable6/Demux4'],... 

'outputs','2',... 

'position',[  1 200,405, 1 240,440]) 

add_block('built-in/MATLAB  Fcn’,[sys,'/',’Expendable6/mexphit.m']) 
set_param([sys,’/’,’Expendable6/mexphit.m'],... 

'MATLAB  Fcn’,'mexphit’,... 

'Output  Width’,’2',... 

'position’,[l  120,410,1 170,440]) 

add_biock('built-in/Demux‘,[sys,'/',’ExpendabIe6/Demux3']) 

set_param([sys,'/','ExpendabIe6/Demux3'],... 

'outputs','9') 

set_parani([sys,'/’,'Expendable6/Demux3'],... 

'Mask  Display','  xexp\n  xvexp\n  yexp\n 

zexp\n  vzexp\n  x  pos  noise\n  y  pos  noiseXn  z  pos  noise') 
set_param([sys,'/','Expendable6/Demux3'],... 

'position', [  1 85, 1 38,280,242]) 

add_block('built-in/Inport’,[sys,'/’,['ExpendabIe6/operationar,13,'fIag',13,"]]) 

set_param([sys,’/’,['ExpendabIe6/operationar,13,'flag',13,"]],... 

'Port','6’,... 

'position', [550,60,570,80]) 

add_block('built-in/Outport',[sys,'/','Expendable6/exp  pos  in  1 ']) 
set_param([sys,'/’,'Expendable6/exp  pos  ini'],... 

'Port’,'2',.., 

'position',[540,290,560,3 10]) 

add_block('built-in/Outport',[sys,'/’,'ExpendabIe6/exp  pos  in2’]) 
set_param([sys,'/*,’Expendable6/exp  pos  in2'],... 

'orientation', 2,... 

'Port','3',... 

'position', [390,330,4 10,350]) 

add_biock('built-in/Outport’,[sys,'/’,'Expendable6/exp  pos  in3']) 
set_param([sys,'/','ExpendabIe6/exp  pos  in3'],... 

'orientation',2,... 

'Port’,'4',... 

'position',[395 ,380, 4 15,400]) 

add_block('buiIt-in/Outport',[sys,7','Expendable6/STOP  Flag']) 
set_param([sys,'/','Expendable6/STOP  Flag'],... 

'Port','6',... 

'position',[l295,450,l3l5,470]) 


vyexp\nexp  pos 
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add_block('built-in/Outport',[sys//’,‘Expendable6/PK’]) 

set_param([sys//’,’Expendab!e6/PK’],... 

’Port';5\... 

'position\[  1 300,405, 1 320,425]) 

add_bIock(’built-in/Outport',(sys,T/Expendable6/mexslantrange']) 

set_param([sys,'/’,’Expendable6/mexslantrange'],... 

•Port\7\... 

‘position',[1095,630,l  1 15,650]) 

add_block(*buiIt-in/Mux',[sys,T,’Expendable6/Muxl5’]) 

set_param([sys,7','Expendable6/MuxI5‘],... 

'inputs',’6’,... 

’position‘,[370,64,405,l36]) 

add_bIock('built-in/Outport',(sys,7’,['Expendable6/exp  pos',  1 3,'(x,vx,y,vy,z,vz)‘]]) 
set_param([sys,T,[*ExpendabIe6/exp  posM3,Xx,vx,y,vy,z,vz)‘]],... 

’Port’,’8',.,. 

'position*,[450,90,470,ll0]) 

add_block('built-in/Constant’,[sys,7’,'Expendable6/Duration  of  wash  noise']) 
set_param([sys,'/*,’Expendable6/Duration  of  wash  noise’],... 
'Value',’washnoiseduration',... 

’position',[7 10,294,830,3 16]) 

add_block(’built-in/Memory’,[sys,7’,['Expendable6/Memory2’,13,'IC:  [0  0  0]']]) 
set_paranfi([sys,7',[*ExpendabIe6/Memory2',l3,’IC:  [0  0  0]']],... 

'x0V[000]’,... 

’position’,[700,I50,740,l80]) 

add_block(’built-in/Inport',[sys,7’,’Expendable6/time*]) 

set_param([sys,'/’,’Expendable6/time'],... 

'Port',’4',... 

'position’,[720, 110,740,130]) 

add_block(’built«in/Inport’,[sys,'A['Expendable6/launch',13,’fIag']]) 

set_param([sys,'/’,['Expendabie6/launch',13,'flag']],... 

’Port’,'2’.... 

’position’, [645, 80,665, 100]) 

add_block('built-in/Mux’,[sys,’/',’Expendable6/Muxl4']) 

set_parani([sys,’/’,’Expendable6/Muxl4'],... 

'inputs’,*6’,... 

’position’,(9 15,64,950, 101]) 

add_block('built-in/Outport',[sys,'/',’Expendable6/exp  pos  in']) 
set_param([sys,'/’,’Expendable6/exp  pos  in’],... 

’position’,[1005,75,1025,95]) 

add_block('buiIt-in/Constant',[sys,’/’,’Expendable6/standard  dev  of  wash  noise’]) 
set_param([sys,'/’,’Expendable6/standard  dev  of  wash  noise’],... 

'Value', ’washnoisestd’,... 

’position’,[685,2I5,765,235]) 
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add_bIock('buiIt-in/Inport',[sys,'/’,'Expendab!e6/exp  pos  out']) 
set_parani([sys,'/','Expendable6/exp  pos  out'],... 

'Port', '3',... 

■position',[120,180,l40,200]) 

add_block('built-in/Mux',[sys,'/’,'ExpendabIe6/Mux  16']) 
set_parani([sys,'/','Expendable6/Mux  1 6’],... 

'inputs', '3',... 

'position',[350,20 1,385,239]) 
addJine([sys,'/','Expendable6'], [575,70:910, 70]) 
addJine([sys,’/’,'Expendable6'],[745, 120;745,80:9 10,80]) 
addJine([sys,'/','Expendable6'],[745, 165:770, 165;770,85;9 10,85]) 
add_line([sys,'/','ExpendabIe6'],(750,685:785,685:785,65O:855,65O]) 
add_line([sys,'/','Expendable6'],[755,590:770,590:770,630:855,630]) 
addJine([sys,’/','Expendable6'],[985,640:995,640:995,415:1045,415]) 
add_line([sys,'/','Expendable6'],[435,485:535,485]) 
addJine([sys,’/','Expendable6'],[l  175,425:1 195,425]) 
addJine([sys,'/','Expendable6'],[  1090,425:1 1 15,425]) 
addJine([sys,'/','ExpendabIe6'],[950,445:1045,445]) 
addJine([sys,'/','Expendable6'],[885,640:890,640]) 
addJine([sys,'/','Expendable6'],[715,640:855,640]) 
addJine([sys,'/','Expendable6'],[600,445:697,445:697,5 85:720,585]) 
addJine([sys,'/’,'Expendable6'],(600,445:697,445:697,595:720,595]) 
addJine([sys,'/','Expendable6'],[565,490:647,490:647,645:680,645]) 
addJine([sys,'/','Expendable6'],[565,490:647,490:647,635:680,635]) 
addJine([sys,'/','Expendable6'],[525,535:6 1 2,535:6 1 2,680:7 1 5,680]) 
addJine([sys,'/','Expendable6'],[525,535:612,535:612,690:715,690]) 
add_line([sys,'/','ExpendabIe6'], [325 ,485:385, 485]) 
add_line([sys,'/','Expendab!e6'],[785,430:1045,430]) 

addJine([sys,'/','Expendable6'],[  1065,680: 1252,680: 1 252,605: 1032,605: 1032,460: 1045,460]) 

addJine([sys,'/','Expendable6'],[435,495;457,495:457,530:495,530]) 

addJine([sys,'/','Expendable6'],[435,475:492,475:492,440:570,440]) 

addJine([sys,'/','Expendable6'],[985,640:995,640:995,680:1015,680]) 

addJine([sys,'/','Expendable6'],[285, 150:505,150:505,450:570,450]) 

addJine([sys,'/','Expendab!e6’],[285, 170:477, 170:477,495:535,495]) 

addJine([sys,'/','Expendable6'],[285, 190:447, 190:447,540:495,540]) 

addJine([sys,'/',’Expendable6'].[670,90:7 17,90:7 17,75:9 10,75]) 

add_line([sys,'/','ExpendabIe6’],[610,70:610,400:1045,400]) 

add_line([sys,'/','Expendable6'],[842,400:842,340:875,340]) 

addJine([sys,'/','Expendable6'],[925,340:982,340:982,385:1045,385]) 

addJine([sys,'/','Expendable6'],[955,85:1000,85]) 

add_line([sys,'/','ExpendabIe6'],[145,190:180,190]) 

addJine([sys,'/','Expendable6'],[1245,415:1295,415]) 

add_line([sys,'/','Expendable6'],[  1245,430: 1 270,430: 1 270,460: 1 290,460]) 

addJine([sys,’/','Expendable6'],[505,300:535,300]) 

add_line([sys,'/','Expendable6'],[447,390:420,390]) 

add_line([sys,’/','Expendable6'],[477,340:415,340]) 

add_line([sys,'/','Expendable6'], [995,640: 1090,640]) 

addJine([sys,'/','Expendable6'],[4 10, 100:445, 100]) 

add_line([sys,'/','Expendable6'],[285, 150:305, 150:305,75:365,75]) 

addJine([sys,'/','ExpendabIe6'],[285, 160:3 10, 160:3 10,85:365,85]) 

addJine([sys,'/','Expendable6'],[320,170:320,95:365,95]) 

addJine([sys,'/','ExpendabIe6'],[285, 180:325,180:325, 105:365, 105]) 

add_line([sys,'/','Expendable6'],[330, 190:330,1 15:365,1 15]) 

addJine([sys,'/','Expendable6'],[835,305:885,305:885,95:910,95]) 
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addJine([sys;/’;Expendable6’],[285,210;345,2l0]) 

addJine([sys,7’,’Expendable6'],[285,220;345,220]) 

addJine([sys;/’;Expendable6’],[285,230;345,230]) 

addJine([sys,7’;Expendable6’],[390,220;560,220;560,165;695,165]) 

addJine([sys;/’;Expendable6‘],[770,225;780,225;780,180;875,180;875,90;910,90]) 

addJine([sys;/’;Expendable6'],[285,200;335,200;335.125;365,125]) 

set_param([sys,'/’/Expendable6’],... 

'Mask  Display'/Missile  exppos  in\npos  (x,y,z)  \n  Exp  X  pos\n 

Launch  Flag  \n  Exp  Y  pos\nexp  pos  \n  out  Exp  Z  pos\n\nTime 

PK\n  Stop  flag\nEffective  \nradius  mexsIantrange\n\nOperational  \nflag 

Exp  pos  (x,y,z)') 


%  Finished  composite  block  'Expendableb'. 

set__param([sys//’,’ExpendabIe6’],... 

’position\[1275, 1126,1410,1304]) 


%  Subsystem  'ExpendableT. 
new_system([sys,'/','ExpendabIe7']) 

set_param([sys,’/’,’ExpendabIe7’],’Location’,[66,344, 1080,839]) 

add_bIock('built-in/Inport',[sys,7',['ExpendabIe7/Missile  position',  1 3,’(x,y,z)']]) 
set_param([sys,'/',['Expendable7/Missile  position’,  1 3,’(x,y ,z)']],... 

'position', [300, 475,320,495]) 

add_block(’built-in/Inport',[sys,'/',['Expendable7/effective  radius’,  1 3,’of  expendable']]) 
set_param([sys,'/',[’Expendable7/effective  radius’, 1 3, 'of  expendable*]],.., 

’Port','5',... 

’position’,[760,420, 780,440]) 

add_block(’built-in/Product',[sys,'/','Expendable7/Product23’]) 

set_param([sys,'/’,'Expendable7/Product23'],... 

*position',[720,675,745,695]) 

add_block('built-in/Product’,[sys,'/’,'Expendable7/Product25']) 

set_param([sys,'/’,’Expendable7/Product25’],... 

’position’, [725 ,580, 750, 600]) 

add_block('built-in/Constant’,[sys,’/',’Expendable7/Expendable  type']) 
set_param([sys,'/’,'Expendable7/Expendable  type'],,.. 

'Value’, 'exp_type’,... 

’position’, [860, 434, 945, 456]) 

add_bIock(’built-in/Demux',[sys,’/’,’Expendable7/Demux5’]) 

set_param([sys,’/’,’Expendable7/Demux5’],... 

'outputs','3',... 

’position’, [390,467,430,503]) 

add_block(’built-in/Product’,[sys,’/’,'Expendable7/Product24’]) 

set__param([sys,'/’,’Expendable7/Product24'],... 

’position',[685, 630,7 10,650]) 
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add_bIock('built"in/Sum\[sys,'/’/Expendab!e7/Sum  1 8']) 
set__param(  [sy  s,‘/’,'ExpendabIe7/Sum  18’],... 

'inputs’, '-H-V,... 

’position’,[860,622, 880,658]) 

add_bIock('built-in/Fcn',[sys,'/','Expendable7/Fcnl4']) 

set_param([sys,’/',’ExpendabIe7/Fcnl4'],... 

’Expr’,*sqrt(u[l  ])',... 

’position’, [895, 629,980, 65 1]) 

add_bIock(’built-in/Sum’,[sys,'/’,’Expendable7/Suml6']) 
set_param(  [sy  s,’/'  ,’Expendable7/Suni  16'],... 

’inputs','^*’,... 

’position', [540, 480,560, 500]) 

add_bIock('buiIt-in/Sum’,[sys,’/*,'Expendable7/Suml5']) 
set_param([sys,V’,’Expendable7/Suin  15’],... 

'inputs’, '4-*,... 

’position’, [575,435, 595,455]) 

add_bIock('buiIt-in/Sum’,[sys,’/*,’ExpendabIe7/Suml7’]) 

set_param([sys,'/','ExpendabIe7/Suml7'],... 

’inputs’,’^'’,... 

’position’, [500, 525 ,520, 545]) 

add_bIock('buiIt-in/Memory‘,[sys,’/’,[’ExpendabIe7/Memory’,I3,'IC;  0’]]) 
set_parani([sys,'/',[’Expendable7/Memory',13,'IC:  0']],... 

'position’,[  1020,665, 1060,695]) 

add_bIock('built-in/Mux',[sys,’/',’Expendable7/Mux  11’]) 
set_param([sys,'/*,'Expendable7/Mux  1 1 
'inputs’,'6’,... 

’position’,[  1050,372, 1 085,473]) 

add_block('built-in/Memory’,[sys,’/’,['Expendable7/Memory  r,13,’IC:  0']]) 
set_param([sys,'/',[’Expendable7/Memory  1 ',  1 3,’IC:  0’]],... 
'position’,[880,325,920,355]) 

add_block(’buiIt-in/Demux’,[sys,*/’,’ExpendabIe7/Demux4’]) 

set_param([sys,'/’,’Expendable7/Demux4'],... 

’outputs',’2’,... 

’position’, [  1 200,405, 1 240,440]) 

add_block('buiIt-in/MATLAB  Fcn',[sys,'/’,'Expendable7/mexphit.m']) 
set_param([sys,’/','Expendable7/niexphit.m'],... 

'MATLAB  Fcn','mexphit',... 

'Output  Width’, ’2',... 

'position’,[l  120,410,1 170,440]) 

add_bIock(’built-in/Den:iux’,[sys,’/','Expendable7/Demux3']) 

set_param([sys,’/',’Expendable7/Demux3’],... 

'outputs’, '9') 

set_param([sys,'/’,'Expendable7/Demux3’],... 

'Mask  Display’,’  xexp\n  xvexp\n  yexp\n 

zexp\n  vzexp\n  x  pos  noise\n  y  pos  noise\n  z  pos  noise’) 


vyexp\nexp  pos 
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set_param([sys,7/Expendable7/Demux3'],— 

’position\[  185, 138,280,242]) 

add_bIock(’built-in/Inport*,[sys,7,['ExpendabIe7/operationar,13,’flag‘,l3,'']]) 
set_param([sys,'/’,[’Expendabie7/operationalM  3,’flag',  1 3,"]] 

Tort’,’6',... 

’position\[550,60,570,801) 

add_block('built-in/Outport’,[sys,7','Expendable7/exp  pos  ini’]) 
set_param([sys,T,’ExpendabIe7/exp  pos  ini’],... 

’Port’,’2’,... 

’position’,[540,290,560,310]) 

add_bIock(’built-in/Outport',[sys,’/','Expendable7/exp  pos  in2']) 
set_param([sys,’/’,'Expendable7/exp  pos  in2’],... 

'orientation',2,... 

’Port’,’3’,... 

'position', [390,330, 4 10,350]) 

add_block('built-in/Outport',[sys,7','ExpendabIe7/exp  pos  in3’]) 
set_param([sys,’/’,'Expendable7/exp  pos  in3’],... 

’orientation’,2,... 

Tort’,’4*,... 

’position’,[395, 380,415,400]) 

add_block('built-in/Outport’,[sys,’/',’Expendable7/STOP  Flag’]) 
set_parani([sys,’/’,’Expendable7/STOP  Flag’],... 

'Port',’6',... 

'position', [  1 295,450, 1315 ,470]) 

add_bIock(’buiIt-in/Outport',[sys,’/’,'ExpendabIe7/PK’]) 

set_param([sys,’/’,’ExpendabIe7/PK’],... 

’Port','5’,... 

'position',[  1300,405, 1320,425]) 

add_block(’buiIt-in/Outport',[sys,’/VExpendabIe7/mexslantrange']) 

set_param([sys,'/’,’Expendable7/mexslantrange’],... 

'Port’, '7',... 

’position’, [1095,630,1 1 15,650]) 

add_bIock('built-in/Mux',[sys,'/',’ExpendabIe7/Muxl5']) 

set_param([sys,’/','Expendable7/Muxl5'],... 

’inputs’, '6',... 

’position',[370,64,405,136]) 

add_block('built-in/Outport',[sys,’/’,[’Expendable7/exp  pos',  1 3,'(x,vx,y,vy,z,vz)’]]) 
set_param([sys,’/',['Expendable7/exp  pos’,13,’(x,vx,y,vy,z,vz)’]],... 

’Port’,'8',... 

’position’,[450,90,470,n0]) 

add_block('built-in/Constant',[sys,*/',’ExpendabIe7/Duration  of  wash  noise']) 
set_param([sys,’/’,'Expendable7/Duration  of  wash  noise’],... 
'Value','washnoiseduration',... 

’position’,[7 10,294,830,3 16]) 
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add_block('built-in/Memory\[sys,7,['Expendable7/Memory2M3,’IC:  [0  0  0]']]) 
set_param([sys,T,['Expendable7/Memory2M3/IC:  [0  0  0]']],.,. 

'x0V[0  0  0]V.. 

’position', [700, 150, 740, 180]) 

add_blockCbuilt-in/Inport',[sys,'/’,‘Expendable7/time']) 

set_parani([sys,7,’Expendable7/time'],.,. 

'Port’,’4’,... 

’position',[720, 110,740, 130]) 

add_block('buiIt-in/Inport',[sys,7,['Expendable7/launch',13,'flag’]]) 

set_param([sys,7,[’Expendable7/launchM3,’flag’]],... 

'Port’,’2',... 

’position',[645,80,665,100]) 

add_biock('buiIt-in/Mux',[sys,’/',’Expendable7/Muxl4']) 

set_param([sys,7,'Expendable7/Muxl4'],... 

'inputs','6’,... 

'position', [9 1 5 ,64,950, 101]) 

add_block('built-in/Outport’,[sys,7,'Expendable7/exp  pos  in']) 
set_param([sys,'/’,’ExpendabIe7/exp  pos  in’],... 

’position’,[  1005,75, 1025,95]) 

add_bIock(’built-in/Constant’,[sys,'/’,’Expendable7/standard  dev  of  wash  noise']) 
set_param([sys,'/’,'Expendable7/standard  dev  of  wash  noise'],... 

'Value', 'washnoisestd',... 

’position’, [685,2 1 5,765,235] ) 

add_block('buiit-in/Inport',[sys,’/',’Expendable7/exp  pos  out']) 
set_param([sys,’/*,'Expendable7/exp  pos  out'],... 

'Port’,’3',... 

’position',[  1 20, 1 80, 140,200]) 

add_bIock(’built-in/Mux',[sys,’/’,'Expendable7/Muxl6']) 

set_param([sys,'/','Expendable7/Muxl6'],... 

'inputs’, '3',... 

'position’,[350,201, 385,239]) 
addJine([sys,7,'Expendable7'],[575,70;910,70]) 
addJine([sys,7,'Expendable7’],[745,l20;745,80;9 10,80]) 
addJine([sys,’/',’Expendable7’],[745,165;770,165;770,85;910,85]) 
add_line([sys,7,'ExpendabIe7’],[750,685;785,685;785,650;855,650]) 
add  Jine([sys,7, 'Expendable?], [755,590;770,590;770,630;855,630]) 
addJine([sys,7,'Expendable7’],[985,640;995,640;995,4l5;1045,415]) 
addJine([sys,7,'Expendable7'],[435,485;535,485]) 
addJine([sys,7,'Expendable7'],[l  175,425;!  195,425]) 
addJine([sys,7,’Expendable7’], [1090,425;!  1 15,425]) 
addJine([sys,7,’Expendable7’],[950,445;1045,445]) 
addJine([sys,7,'Expendable7’],[885,640;890,640]) 
addJine([sys,7,’Expendable7’],[715,640;855,640]) 
add_line([sys,'/','ExpendabIe7'],[600,445;697,445;697,585;720,585]) 
addJine([sys,7,'Expendable7'],[600,445;697,445;697,595;720,595]) 
addJine([sys,’/’,’Expendable7'],[565,490;647,490;647,645;680,645]) 
addJine([sys,'/',’Expendable7'],[565,490;647,490;647,635;680,635]) 
add  Jine([sys,'/', 'Expendable?], [525,535;612,535;612,680;715, 680]) 
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addJine([sys,7','ExpendabIe7'],[525,535;6l2.535;6l2,690;715,690]) 
addJine([sys.’/’,'Expendable7'], [325, 485:385, 485]) 
addJine([sys,7,'Expendable7'],[785, 430:1045, 430]) 

add_Une([sys,7,'Expendable7'],[1065,680:1252,680:1252,605:1032,605;1032.460:1045,460]) 
addJine([sys,7,'ExpendableT],[435,495:457, 495:457, 530:495,530]) 
addJine((sys,7,’Expendable7’], [435, 475:492,475:492, 440:570, 440]) 
addJine([sys,7,'Expendable7'],[985,640:995,640:995,680:I015,680]) 
addJine([sys,7,'ExpendabIeT],[285, 150:505,150:505,450:570,450]) 
addJine([sys,7,'ExpendableT],[285,170:477,170:477 ,495:535,495]) 
addJine([sys,7,'Expendable7'], [285,190:447,190:447,540:495, 540]) 
addJine([sys,7,'Expendable7'],[670,90:7 17,90:7 17,75:9 10,75]) 
addJine([sys,7,'Expendable7'], [610,70:610,400:1045,400]) 
addJine([sys,7,'Expendable7'],[842,400:842,340:875,340]) 
addJine([sys,7,’Expendable7'],[925,340:982,340:982,385:1045,385]) 
addJine([sys,7.'ExpendabIe7'],[955,85:1000,85]) 
addJine([sys,7,'Expendable7’],[145,I90:180.190]) 
addJine([sys,7,'ExpendabIe7'], [1245,415:1295,415]) 
addJine([sys,7,'Expendable7'],[  1 245,430: 1 270,430: 1 270,460: 1 290,460]) 
add_iine([sys,7.'ExpendabIe7'],[505,300:535,300]) 
addJine([sys,7,'ExpendabIe7'],[447, 390:420.390]) 
addJine([sys,7,'Expendable7‘],[477,340:4 15,340]) 
addJine([sys,7,'ExpendableT],[995,640:1090,640]) 
addJine([sys,7,'Expendable7'],[410, 100:445, 100]) 
addJine([sys,7,'Expendable7’],[285 , 1 50:305, 1 50:305,75 :365,75  ]) 
addJine([sys,7,'Expendable7'].[285, 160:3 10, 160:3 10,85:365,85]) 
addJine([sys,7.'ExpendableT].[320, 170:320.95:365,95]) 
addJine([sys,7,'Expendable7’],[285, 180:325, 180:325, 105:365, 105]) 
addJine([sys,7,'Expendable7'],[330, 190:330,1 15:365,1 15]) 
addJine([sys,7,'Expendable7’], [835,305:885,305:885, 95:910,95]) 
addJine([sys,7,'Expendable7],[285,210:345,210]) 
addJine([sys,7,’Expendable7’], [285,220:345,220]) 
addJine([sys.7,'Expendable7’],[285,230:345,230]) 
addJine([sys,7,'Expendable7],[390,220:560.220:560. 165:695, 165]) 
addJine([sys,7,'Expendable7],[770,225:780,225:780, 180:875, 180:875,90:910,90]) 
addJine([sys,7,'Expendable7],[285,200:335.200:335, 125:365, 125]) 
set_param([sys,7,'Expendable7'],... 

'Mask  Display'.'Missile  exppos  in\npos  (x,y,z)  \n  Exp  X  pos\n 

Launch  Flag  \n  Exp  Y  posVnexp  pos  \n  out  Exp  Z  pos\n\nTime 

PK\n  Stop  flag\nEffective  \nradius  mexslantrange\n\nOperational  \nflag 

Exp  pos  (x,y,z)') 


%  Finished  composite  block  'Expendable7'. 

set_param([sys,7,'Expendable7'],... 

'position',]  1 755, 1 056, 1 890, 1 234]) 


%  Subsystem  'Expendable5'. 
new_system([sys,'/', 'Expendables']) 

set_param([sys,'/','Expendable5'],'Location',[66,344, 1080,839]) 

add_block('built-in/Inport',[sys,'/',['ExpendabIe5/Missile  position',  13,'(x,y,z)']]) 
set_param([sys,'/',['Expendable5/Missile  position',  13,'(x,y,z)']],... 
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'position’, [300,475,320,495]) 

add_block('built-in/Inport',[sys,'/',['Expendable5/effective  radiusM3,'of  expendable']]) 
set_param([sys,'/',['ExpendabIe5/effective  radius',  1 3,’of  expendable']],... 

’Port’, '5',... 

’position’, [760, 420, 780,440]) 

add_block('built-in/Product',[sys,'/’,’ExpendabIe5/Product23']) 

set_param([sys,’/','Expendable5/Product23’],... 

’position',[720, 675,745,695]) 

add_biock(’built-in/Product’,[sys,’/',’ExpendabIe5/Product25']) 

set_param([sys,’/','Expendable5/Product25’],... 

’position',[725,580, 750,600]) 

add_block(’built-in/Constant’,[sys,’/’,’Expendable5/Expendable  type’]) 
set_param([sys,’/’,’Expendable5/ExpendabIe  type’],... 

’Value’,'exp_type’,... 

’position’, [860, 434, 941456]) 

add_block('buiIt-in/Demux’,[sys,’/’,’Expendable5/Demux5’]) 

set_param([sys,’/',’ExpendabIe5/Demux5’],... 

’outputs’,'3’,... 

’position’,[390, 467,430, 5031) 

add_block(’buiIt-in/Product’,[sys,'/',’Expendable5/Product24']) 

set_param([sys,'/’,’Expendable5/Product24’],... 

’position', [685,630,7 10,650]) 

add_block(’built-inySum’,[sys,’/’,’Expendable5/Suml8’]) 
set_param([sys,'/’,’Expendable5/Sum  1 8’],... 

'inputs’, 

’position’,[860,622,880,658]) 

add_block(’built4n/Fcn’,[sys,’/','Expendable5/Fcn  1 4’]) 
set_param([sys,’/’,’Expendable5/FcnI4’],... 

’Expr','sqrt(u[l  ])',... 

’position’, [895, 629, 980,65 1]) 

add_block(’built-in/Sum’,[sys,’/','Expendable5/Suml6’]) 
set_parann([sys,'/’,'Expendable5/Sum  16'],.., 

'inputs’, 

’position’,[540, 480, 560,500]) 

add_bIock(’buiIt-in/Sum',[sys,’/',’Expendable5/Suml5’]) 
set_param([sys,’/’,’ExpendabIe5/Sum  15’],... 

’inputs',’+-’,... 

’position’, [575,435, 595,455]) 

add_block('built-in/Sum',[sys,’/’,'Expendable5/Sum  17’]) 
set_param([sys,'/’,’Expendable5/Sum  17’],... 

’inputs’,’+-’,... 

'position', [500,525, 520, 545]) 

add_block(’built-in/Meinory’,[sys,'/’,[’Expendable5/Memory’,13,’IC:  0’]]) 
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set_parain([sys,7’,['ExpendabIe5/Memory\13/IC:  0’]],... 

'position',[l020»665, 1060,695]) 

add_block('buiIt-in/Mux\[sys,7,’Expendab!e5/Mux  IT]) 
set_param([sys,7\’Expendable5/Muxl  T],... 

4nputs\'6\.., 

’position*,!  1050,372, 1085,473]) 

add_block('buiIt-in/Memory’,[sys,'/',['Expendable5/Memory  r,13,'IC:  0’]]) 
set_param([sys,'/’,['Expendable5/MemorylM3,’IC:  0’]],... 

’position’, [880, 325, 920, 355]) 

add_biock('built-in/Demux',[sys,’/',’ExpendabIe5/Demux4’]) 

set_param([sys,'/’,’Expendable5/Demux4’],... 

'outputs',’2’,... 

’position’, [1200,405,1240.440]) 

add_block(’built4n/MATLAB  Fcn’,[sys,'/’,’ExpendabIe5/mexphit.m’]) 
set_param([sys,’/’,’ExpendabIe5/mexphit.m'],... 

'MATLAB  Fcn’,'mexphit’,... 

'Output  Width','2’,... 

’position’,!  1 120,410,1 170,440]) 

add_block('buiIt-in/Dennux’,[sys,’/’,'Expendable5/Demux3’]) 

set_param([sys,’/’,'Expendable5/Demux3’],... 

’outputs', ’9’) 

set_param([sys,’/','Expendable5/Demux3’],... 

'Mask  Display’,’  xexp\n  xvexpVn  yexp\n 

zexp\n  vzexpVn  x  pos  noise\n  y  pos  noise\n  z  pos  noise’) 
set_param([sys,’/','Expendable5/Demux3'],... 

’position’,[185,138,280,242]) 

add_block('built-in/Inport’,[sys,'/’,[’ExpendabIe5/operationar,  1 3,'flag’,  1 3,”]]) 
set_param([sys,’/’,[’ExpendabIe5/operationaI',13,’flag',13,'’]],... 

’Port’,'6',... 

’position’,[550,60,570,80]) 

add_bIock(’built-in/Outport’,[sys,’/’,'Expendable5/exp  pos  in  1’]) 
set_param([sys,'/’,’Expendable5/exp  pos  ini’],... 

'Port',’2’,... 

’position’, [540, 290, 560,3 10]) 

add_bIock('built-in/Outport’,[sys,'/’,'Expendable5/exp  pos  in2’]) 
set_paranri([sys,’/’,'Expendable5/exp  pos  in2'],... 

'orientation’,2,... 

’Port’,’3’,... 

'position’,[390, 330, 410,350]) 

add_bIock(’built"in/Outport’,[sys,’/’,’Expendable5/exp  pos  in3’]) 
set_param([sys,’/’,'Expendable5/exp  pos  in3'],... 

’orientation',2,... 

’Port', ’4',... 

’position’,[395, 380,415,400]) 

add_block('built-in/Outport’,[sys,7',’Expendable5/STOP  Flag’]) 


vyexp\nexp  pos 
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set_param([sys,V'/Expendable5/ST0P  Flag’],... 

'Port‘,’6’,... 

•position', [1295, 450,1315, 470]) 

add_block('built-in/Outport’,[sys,'/’,’ExpendabIe5/PK']) 

set_parani([sys,7’,’Expendable5/PK’],... 

’Port';5’,... 

'position'.[  1 300,405, 1 320,425]) 

add_block('built-in/Outport’,[sys,‘/’,‘ExpendabIe5/mexslantrange']) 

set_param([sys,’/’,'ExpendabIe5/mexslantrange’],... 

•Port’, '7',... 

’position’,[l095,630,l  115,650]) 

add_block(’buiIt-in/Mux',[sys,V','Expendable5/Mux  1 5’]) 
set_param([sys,7’,'Expendable5/Muxl5'],... 

•inputs’;6’,... 

'position’,[370,64,405,136]) 

add_block(’built-in/Outport',[sys,’/',[‘ExpendabIe5/exp  pos',  1 3,'(x,vx,y,vy,z,vz)']]) 
set_param([sys,’/',['Expendable5/exp  pos',l3,*(x,vx,y,vy,z,vz)’]],... 

Tort’, ’8’,.., 

•position',(450,90,470,I10]) 

add_block('built-in/Constant',[sys,’/’,’Expendable5/Duration  of  wash  noise’]) 
set_param([sys,'/’,'Expendable5/Duration  of  wash  noise’],... 
’Value’,’washnoiseduration’,... 

'position',[7 1 0,294,830,3 1 6]) 

add_biock(’built-in/Memory',[sys,'/’,(’Expendabie5/Memory2',13,’IC:  [0  0  0]']]) 
set_param([sys,7’,['Expendable5/Meniory2’,I3,’IC:  [0  0  0]']],... 

’x0’,'[0  0  0]',... 

’position',[700, 1 50,740, 1 80]) 

add_block('built-in/Inport',[sys,'/','ExpendabIe5/tinne’]) 

set„param([sys,'/’,’Expendable5/time'],... 

’Port’,’4',... 

’position’, [720, 110,740,130]) 

add_bIock(’built-in/Inport’,[sys,’/’,[’Expendable5/launch’,13,’flag’]]) 

set_parani([sys,’/',[’Expendable5/launch’,13,'flag']],... 

'Port’, ’2’,... 

’position',[645,80,665, 100]) 

add_bIock(’built-in/Mux’,[sys,'/’,'ExpendabIe5/Muxl4’]) 

set_parani([sys,’/’,’Expendable5/Muxl4’],... 

'inputs’, ’6’,... 

’position’,[9 1 5,64,950, 101]) 

add_block('built’in/Outport’,[sys,’/','ExpendabIe5/exp  pos  in’]) 
set_param([sys,'/','Expendable5/exp  pos  in’],... 

’position’,[  1005,75, 1025,95]) 

add_block('built-in/Constant’,[sys,’/’,’Expendable5/standard  dev  of  wash  noise’]) 
set_param([sys,'/’,’Expendable5/standard  dev  of  wash  noise’],... 
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'Value', 'washnoisestd',... 
'position', [685,215, 765,235]) 


add_block('buiIt-in/Inport',[sys,'/’,'Expendable5/exp  pos  out']) 
set_parain([sys,'/','Expendable5/exp  pos  out'],... 

'Port','3',... 

'position' ,[  1 20, 1 80, 1 40,200] ) 

add_block('built-in/Mux',[sys,’/','Expendable5/Mux  16']) 
set_parani([sys,7','Expendable5/Mux  1 6'],... 

'inputs','3',... 

'position',[350,20 1,385,239]) 
addJine([sys,'/','ExpendabIe5'], [575,70:910,70]) 
addJine([sys,'/','Expendable5'],[745, 120:745,80:9 10,80]) 
addJine([sys,'/','Expendable5'],[745, 165:770,165:770,85:910,85]) 
addJine([sys,'/','Expendable5'],[750,685:785,685:785,650:855,650]) 
addJine([sys,'/','ExpendabIe5'],[755,590:770,590:770, 630:855,6301) 
add_line([sys,'/','Expendable5'],[985,640:995,640:995,415:1045,415]) 
add_line([sys,'/','Expendable5'],[435,485:535,485]) 
addJine([sys,'/','Expendable5'],[l  175,425:1 195,425]) 
add_line([sys,'/',  .■xpendable5'], [1090,425:1 1 15,425]) 
add_line([sys,'/','£xpendable5'], [950,445: 1045 ,445]) 
addJine([sys,'/','Expendable5'], [885,640:890, 640]) 
addJine([sys,'/','ExpendabIe5'], [715,640:855,640]) 
addJine([sys,'/','Expendable5'],[600,445:697,445:697, 585:720,585]) 
addJine([sys,'/','Expendable5'], [600,445:697,445:697,595:720,595]) 
addJine([sys,'/',’Expendable5'],[565,490:647,490:647,645:680,645]) 
addJine([sys,'/',’ExpendabIe5'],[565,490:647 ,490:647,635:680,635]) 
addJine([sys,'/','Expendable5'].[525,535:6 1 2,535 :6 1 2,680:7 15,680]) 
addJine([sys,'/','Expendable5'],[525,535:612,535:6l2,690:7l5,690]) 
addJine([sys,'/’,'Expendable5'], [325,485:385,485]) 
addJine([sys,'/','Expendable5'].[785,430:1045,430]) 

addJine([sys,'/','Expendable5'],[1065,680:1252,680:1252,605:1032,605:l032,460:1045,460]) 

addJine([sys,'/','Expendable5'], [435, 495:457,495:457,530:495,530]) 

addJine([sys,'/','Expendable5'],[435, 475:492,475:492,440:570,440]) 

addJine([sys,'/','Expendable5'],[985,640:995,640:995, 680:1015,680]) 

addJine([sys,'/','Expendable5'],[285, 1 50:505, 1 50:505 ,450:570,450]) 

addJine([sys,'/','ExpendabIe5'],[285,170:477,170:477,495:535,495]) 

addJine([sys,'/','Expendable5'],[285,190:447,190:447,540:495,540]) 

addJine([sys,'/','Expendable5'],[670,90:7 17,90:7 17,75:9 10,75]) 

add_line([sys,'/','ExpendabIe5'],[610,70:6I0,400:1045,400]) 

addJine([sys,'/','Expendable5'],[842,400:842,340:875,340]) 

addJine([sys,'/','Expendable5'],[925,340:982,340:982,385:1045,385]) 

addJine([sys,'/','Expendable5'], [955,85:1000,85]) 

add_line([sys,'/','Expendable5'],[  1 45, 1 90: 1 80, 1 90]) 

add_line([sys,'/’,'Expendable5'].[1245,415;1295,415]) 

addJine([sys,'/','Expendable5'],[  1 245,430: 1 270,430: 1 270,460: 1 290,460]) 

add_line([sys,7','Expendable5'],[505,300:535,300]) 

addJine([sys,'/','Expendable5'], [447,390:420,390]) 

addJine([sys,'/','Expendable5'],[477,340:415,340]) 

addJine([sys,'/','Expendable5'],[995,640:I090,640]) 

addJine([sys,'/','Expendable5'],[4 1 0, 1 00:445, 1 00]) 

addJine([sys,'/','Expendable5'], [285,150:305, 150:305,75:365,75]) 

addJine([sys,'/','Expendable5'],[285, 160:3 10, 1 60:3 10,85:365,85]) 

addJine([sys,'/','Expendable5'],[320,170:320,95:365,95]) 
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addJine([sys;/VExpendable5’],[285,180;325,I80;325,105;365,l05]) 

addJine([sys;/’;Expendable5'],[330,I90;330.1 15;365,1 15]) 

addJine([sys;/’;Expendabie5’],[835,3O5;885,305;885,95;91O,95]) 

addJine([sys;/’;Expendable5’],[285,210;345,210]) 

addJine([sys;/’,’ExpendabIe5’].[285, 220:345, 220]) 

add  Jine([sys, 7, ’Expendable5'], [285, 230:345, 230]) 

addJine([sys,r,'ExpendabIe5'],[390,220:560,220:560, 165:695, 165]) 

add  Jine([sys,7,’Expendabie5’], [770, 225:780,225:780,180:875, 180:875, 90:910,90]) 

add  Jine([sys,7’,’Expendable5’], [285, 200:335,200:335,125:365,125]) 

set_parani([sys,V',’Expendable5'],... 

'Mask  Display', 'Missile  exppos  inVnpos  (x,y,z)  \n  Exp  X  pos\n 

Launch  Flag  \n  Exp  Y  pos\nexp  pos  \n  out  Exp  Z  pos\n\nTime 

PK\n  Stop  fIag\nEtfective  \nradius  mexslantrange\n\nOperationaI  \nflag 

Exp  pos  (x,y,zy) 


%  Finished  composite  block  'Expendable5'. 

set_param([sys,V',’ExpendabIe5’],... 

'position', [730,1051,865,1229]) 


%  Subsystem  'Expendable4'. 
new_system([sys,’/‘,'ExpendabIe4']) 

set_param([sys,'/',’Expendable4'],’Location',[66,344, 1080,839]) 

add_block(’built-in/Inport',[sys,7,['Expendable4/Missile  position’,  13,'(x,y,z)’]]) 
set_param([sys,'/’,['Expendable4/Missile  position*,  13,'(x,y,z)']],... 

'position', [300, 475,320,495]) 

add_block(’built-in/Inport’,[sys,7,[’ExpendabIe4/effective  radius',  13, ’of  expendable']]) 
set_param([sys,7,['ExpendabIe4/effective  radius',  13, 'of  expendable']],... 

'Port', '5',... 

'position', [760,420,780,440]) 

add_bIock('built-in/Product',[sys,7,’ExpendabIe4/Product23']) 

set_param([sys,'/',’Expendable4/Product23'],.., 

’position',[720,675,745,695]) 

add_block(*built-in/Product’,[sys,7,'Expendabie4/Product25']) 

set_param([sys,7,'Expendable4/Product25’],... 

'position', [725,580,750,600]) 

add_block('built-in/Constant',[sys,’/’,’ExpendabIe4/ExpendabIe  type']) 
set_param([sys,'/',’Expendable4/Expendable  type’],... 

'Value',’exp_type’,... 

'position', [860, 434, 945,456]) 

add_block(’built-in/Demux',[sys,7,’Expendable4/Demux5’]) 

set_param([sys,'/','ExpendabIe4/Demux5’],... 

'outputs’, '3’,... 

'position', [390,467,430,503]) 

add_bIock(’bui]t-in/Product’,[sys,7,’Expendabie4/Product24']) 
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set_param(  [sy  s,'/’/ExpendabIe4/Product24’] , . . . 

'position\[685, 630,7 10,650]) 

add_bIock('built-in/Sum',[sys,V',*Expendabie4/Suml8’]) 

set_param([sys,’/',’ExpendabIe4/Suml8'],.., 

‘inputs’,'+++',... 

‘position*, [860, 622, 880,6581) 

add_block('built-in/Fcn’,[sys,'/’,’ExpendabIe4/Fcnl4’]) 

set_param([sys,‘/’,’Expendable4/Fcnl4*],... 

'Expr’,'sqrt(u[l  ])’„.. 

‘position’, [895,629, 980,651]) 

add_blockCbuiIt-in/Sum*,[sys,*/’,’Expendable4/Sum  1 6’]) 
set_param([sys,'/’,'ExpendabIe4/Sunil6’],... 

’inputs’,’+-',... 

‘position’, [540,480, 560, 500] ) 

add_biock('built-in/Sum',[sys,’/’,’Expendable4/Suml5']) 

set_param([sys,'/’,’ExpendabIe4/SumI5'],... 

'inputs', 

'position', [575, 435, 595,455]) 

add_block('built-in/Sum',[sys,'/’,’ExpendabIe4/Suml7‘]) 

set_param([sys,’/’,’Expendable4/SumI7’],... 

‘inputs‘,’+-’,... 

'position', [500, 525,520,545]) 

add_block('built-in/Memory’,[sys,’/’,[’Expendable4/Memory’,13,’IC:  0’]]) 
set_param([sys,'/’,[’Expendable4/Mennory',  1 3,’IC:  0’]],... 

’position',[1020,665,I060,695]) 

add_block('buiIt-in/Mux’,[sys,'/’,’Expendable4/Mux  1 1']) 
set_param([sys,’/*,'Expendable4/Muxl  1'],... 

'inputs',’6’,... 

'position', [1050,372,1085,473]) 

add_bIock('buiIt-in/Memory’,[sys,7',['ExpendabIe4/Memory  r,13,'IC:  0’]]) 
set_param([sys,'/’,['Expendable4/Memoryr,l 3,’IC:  0']],... 
•position',[880,325,920,355]) 

add_block('built-in/Demux',[sys,'/’,'ExpendabIe4/Demux4’]) 
set_param(  [sy  s,’/’,*Expendable4/Dem  ux4'] , . . . 

'outputs’, '2',... 

’position’, [1200, 405, 1240,440]) 

add_bIock('built-in/MATLAB  Fcn’,[sys,'/’,’Expendable4/niexphit.m']) 
set_param([sys,'/’,’Expendable4/mexphit.m'],... 

'MATLAB  Fcn','mexphit’,... 

'Output  Width’, '2',... 

’position',[l  120,410,1 170,440]) 

add_biock(’buiIt-in/Demux’,[sys,'A'Expendable4/Demux3']) 

set_param([sys,'/','Expendable4/Demux3'],... 

'outputs', '9’) 
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set„param(  [sy  s,7’,’Expendable4/Demu  x3'] , . .  . 

’Mask  Display'/  xexp\n  xvexpVn  yexp\n 

zexp\n  vzexpVn  x  pos  noise\n  y  pos  noise\n  z  pos  noise’) 
set_param([sys//’,*Expendable4/Demux3’],... 

'position', [  1 85, 138,280,242]) 

add_bIock('buiIt-in/Inport',[sys//',[’ExpendabIe4/operationar,13,'fIag',l3,"]]) 

set_param([sys,'/',['Expendable4/operationar,I3,'flag',13,"]],... 

’Port',’6',... 

•position’,[550, 60, 570,80]) 

add_block(’built-in/Outport',[sys,’/’,’ExpendabIe4/exp  pos  ini’]) 
set_param([sys,'/’,*ExpendabIe4/exp  pos  ini'],... 

’Port’, *2’,... 

’position', [540,290,560, 3 10]) 

add_bIock('buiIt-in/Outport’,[sys,'/’,'Expendable4/exp  pos  in2’]) 
set_param([sys,’/’,’ExpendabIe4/exp  pos  in2'],... 

’orientation’, 2,.., 

•Port’,’3’,... 

'position', [390,330,4 10,350]) 

add_bIock('built-in/Outport',[sys,'/’,'ExpendabIe4/exp  pos  in3’]) 
set_param([sys,'/',’ExpendabIe4/exp  pos  in3’],... 

’orientation’, 2,... 

’Port’,’4’,... 

’position’, [395,380,4 15,400]) 

add_bIock(’buiIt-in/Outport’,[sys,'/’,'ExpendabIe4/STOP  Flag’]) 
set_param([sys,'/’,'Expendable4/STOP  Flag'],... 

'Port','6',... 

'position',[1295,450,13 15,470]) 

add_block('buiIt-in/Outport’,[sys,'/’,'Expendable4/PK’]) 

set_param([sys,’/',’Expendable4/PK'],... 

'Port',’5’,... 

'position’,[  1 300,405, 1 320,425]) 

add_block(’built-in/Outport’,[sys,’/’,’Expendable4/mexslantrange']) 

set_param([sys,'/’,'Expendable4/mexsIantrange’],... 

’Port’,’7',... 

’position’,[I095,630,1 1 15,650]) 

add_bIock(’built-in/Mux',[sys,’/',’ExpendabIe4/Muxl5']) 
set_param([sys,'/’,’ExpendabIe4/Mux  1 5’],... 

'inputs’,'6’,... 

'position’, [370,64,405, 136]) 

add_block(’buiIt-in/Outport',[sys,’/’,['Expendable4/exp  pos',  1 3,'(x,vx,y,vy,z,vz)']]) 
set_param([sys,’/’,['Expendable4/exp  pos',13,'(x,vx,y,vy,z,vz)']],... 

’Port',’8',... 

’position',[450,90,470,110]) 

add_block('buiIt-in/Constant',[sys,'/*,'Expendable4/Duration  of  wash  noise']) 
set_param([sys,’/',*Expendable4/Duration  of  wash  noise'],... 


vyexp\nexp  pos 
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'Value*, 'washnoiseduration*,... 

’position',[710,294,830,316]) 

add_block(’built-in/Memory’,[sys,'/’,['ExpendabIe4/Memory2’,13,'IC:  [0  0  0]’]]) 
set_param([sys//’,[’ExpendabIe4/Memory2',  13,'IC:  [0  0  0]']],... 

’x0’;[0  0  0]’,... 

•position', [700,150, 740, 180]) 

add_bloclcCbuilt-in/Inport',[sys,V*,’Expendable4/time’]) 

set_param([sys,*/’,'Expendable4/time'],... 

’Port’,’4',... 

'position’,[720, 110,740,130]) 

add_block('built-in/Inport',[sys,T,[’Expendable4/launch',13,'flag']]) 

set_param([sys,'/’,[’Expendable4/launch’,13,'flag*]],... 

'Port’,'2',... 

*position',[645,80,665, 100]) 

add_block('buiIt-in/Mux',[sys,'/’,’Expendable4/Muxl4']) 

set_param([sys,'/’,'Expendable4/Muxl4'],... 

'inputs',*6’,... 

’position',[9 1 5,64,950, 101]) 

add_block(’built-in/Outport’,[sys,'/',’Expendable4/exp  pos  in']) 
set_param([sys,'/’,'Expendable4/exp  pos  in’],... 

'position',[l005,75, 1025,95]) 

add__block('buiIt-in/Constant',[sys,*/','Expendable4/standard  dev  of  wash  noise']) 
set_param([sys,'/’,'Expendable4/standard  dev  of  wash  noise’],... 
’Value’,’washnoisestd',... 

’position',[685, 215, 765,235]) 

add_biock('buiit-in/Inport',[sys,'/’,‘Expendable4/exp  pos  out']) 
set_param([sys,'/','Expendabie4/exp  pos  out'],... 

’Port',’3',... 

'position', [120,180,140, 200]) 

add_bIock('built*in/Mux’,[sys,T,’ExpendabIe4/Muxl6']) 

set_param([sys,'/’,'Expendable4/Muxl6'],... 

'inputs', '3',... 

'position', [350,201,385,239]) 
addJine([sys,'/’,’Expendable4’],[575,70;9 10,70]) 
addJine([sys,’/','Expendable4’],[745,120;745,80;9 10,80]) 
addJine([sys,’/’,'Expendable4’],[745,165;770.1 65  ;770,85;9 10,85]) 
addJine([sys,’/’,'ExpendabIe4’],[750,685;785,685;785,650;855,650]) 
addJine([sys,’/’,’Expendable4’],[755,590;770,590;770,630;855,630]) 
addJine([sys,’/’,'Expendable4'],[985,640;995,640;995,415;1045,415]) 
addJine([sys,'/’,'Expendable4’],[435,485;535,485]) 
add  Jine([sys,’/','Expendable4'],[l  175,425;!  195,425]) 
add  Jine([sys,’/’,'ExpendabIe4'],[  1090,425;!  1 15,425]) 
addJine([sys,’/','Expendable4’],[950,445;1045,445]) 
addJine([sys,'/',’Expendable4’],[885,640;890,640]) 
addJine([sys,’/','ExpendabIe4'],[7I5,640;855,640]) 
addJine([sys,’/’,’Expendable4'],[600,445;697,445;697,585;720,585]) 
addJine([sys,'/’,'Expendable4'],[600,445;697,445;697,595;720,595]) 
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addJine([sys,7','Expendable4'].[565,490;647 .490:647, 645:680, 645]) 

addJine([sys,r,’Expendable4’].[565,490:647,490:647,635:680,635]) 

addJine([sys,r,'Expendable4'],[525,535:612.535:6!2,680:715,680]) 

addJine(tsys.r,'Expendable4'],[525,535:612.535:612,690:715,690]) 

addJine([sys.7','ExpendabIe4'],[325,485:385,485]) 

addJine([sys,7',’ExpendabIe4'], [785,430:1045,430]) 

addJine([sys,7','Expendable4’],[  1065,680: 1252,680: 1252,605:1032,605: 1032,460: 1045,460]) 
addJine([sys,7','Expendable4'].[435.495:457,495:457,530:495,530]) 
add_line([sys,7','Expendable4'],[435,475:492,475:492,440:570,440]) 
addJine([sys.7','Expendable4'], [985,640:995,640:995,680:1015,680]) 
addJine([sys.7’,'ExpendabIe4'],[285.150:505.150;505, 450:570,450]) 
add_line([sys,7’,'ExpendabIe4'],[285,170:477.I70:477 ,495:535,495]) 
addJine([sys.7','Expendable4'],[285,190:447, 190:447,540:495,540]) 
addJine([sys.7',’Expendable4'],[670,90:717,90:717,75:910,75]) 
addJine([sys.7',’Expendable4'],[6 1 0,70:6 1 0,400: 1 045,400]) 
addJine([sys.7','Expendable4'],[842,400:842,340:875,340]) 
addJine([sys,r,'Expendable4’], [925,340:982.340:982,385:1045,385]) 
addJine([sys.7','Expendable4'],[955,85: 1000,85]) 
addJine([sys,7','Expendable4’],[145,190:180,190]) 
add_line([sys,’/','Expendable4'],[1245,415: 1295,4 15]) 
addJine([sys,7','Expendable4’],[  1245,430: 1270,430: 1270.460: 1290,460]) 
addJine([sys,7’,'Expendable4'],[505,300:535,300]) 
add_line([sys.7','Expendable4’],[447,390:420,3901) 
add_line([sys,'/',’Expendable4'],[477,340:415,340]) 
addJine([sys,’/’,'Expendable4'],[995,640:1090,640]) 
addJine([sys,7'.'Expendable4’],[41 0,100:445, 100]) 
addJine([sys.7','Expendable4’],[285, 150:305, 1 50:305,75:365,75]) 
addJine([sys,7','Expendable4‘],[285, 160:3 10, 160:3 10,85:365,85]) 
addJine([sys,7','Expendable4'],[320, 170:320,95:365,95]) 
add_line([sys,7','Expendable4'], [285, 180:325, 180:325, 105:365, 105]) 
addJine([sys,7',’Expendable4'],[330, 190:330,1 15:365,1 15]) 
addJine([sys,7','Expendable4'],[835,305:885, 305:885,95:910,95]) 
addJine([sys.’/’,’Expendable4'],[285,210:345,210]) 
add_line([sys,’/','Expendable4'], [285, 220:345,220]) 
add_line([sys,7','Expendable4'], [285,230:345,230]) 
addJine([sys,7’,'Expendable4'],[390,220:560,220:560, 165:695, 165]) 
addJine([sys,T,’Expendable4'],[770,225:780,225:780, 180:875, 180:875,90:910,90]) 
addJine([sys,7','Expendable4'],[285,200:335,200:335, 125:365, 125]) 
set_parani([sys,'/','Expendable4'],... 

'Mask  Display','Missile  exppos  in\npos  (x,y,z)  \n  Exp  X  pos\n 

Launch  Flag  \n  Exp  Y  pos\nexp  pos  \n  out  Exp  Z  pos\n\nTime 

PK\n  Stop  flag\nEffective  \nradius  mexslantrange\n\nOperational  \nflag 

Exp  pos  (x,y,z)') 


%  Finished  composite  block  'Expendable4'. 

set_param([sys,'/',’Expendable4'],... 

'position', [230, 102 1,365, 1199]) 
addjine(sys.[  1265,720: 1 295,720: 1 295,920: 1 3 10,920]) 
addjine(sys,[  1075,860:1 1 10,860]) 
addjine(sys,[355,500:320,500:320,3 10:370,3 10]) 
add_line(sys,[530,335:570,335:570, 1 85:6 10, 1 85]) 
addjine(sys,[80,515:145,515]) 
addjine(sys,[790,635:885,635:885,665:920,665]) 
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addjine(sys.[790,635;841,635;841, 825:875, 8251) 

addjine(sys, [795, 320:865, 320:865, 695:920, 695]) 

addjine(sys,[280,295:370,295]) 

addjine(sys,[530, 305:540,305:540,170:610,170]) 

add_line(sys,[80,515:110,515:l  10,285:140,285]) 

addjine(sys,[790,6 15:820,6 15:820,850:875,850]) 

addjine(sys,[790,655:805,655:805,725:920,725]) 

addjine(sys,[280,295:295,295:295, 158:530, 1 58:530, 1 20:850, 120]) 

addjine(sys,[841,635:84l,633:840,633:840,565:940,565]) 

addjine(sys,[  1 10,338: 1 10,340:370,340]) 

addjine(sys,[295,293:295,650:615,650]) 

addjine(sys,[530, 1 53:530, 1 55:6 10, 1 55]) 

addjine(sys,[770, 170:795,170:795,233:350,233:350,325:370,325]) 

addjine(sys,[280,270:630,270:630,305:650,305]) 

add_line(sys,[600,233:600,500:500,500]) 

addjine(sys,[600, 500:600,553:600,620:615,620]) 

addjine(sys,[795,170:795,145:850,145]) 

addjine(sys,[  1055,695: 1065,695: 1065,780:1 1 10,780]) 

addjine(sys,[550,650:550,800:l  1 10,800]) 

add_line(sys,[985,840:l  1 10,840]) 

addjine(sys,[1040,585:1075,585:1075,740:l  1 10,740]) 

addjine(sys,[1040,540:1085,540:1085,720:l  1 10,720]) 

addjine(sys,[80,5 15:125,515:125,760:1 1 10,760]) 

addjine(sys,[680,l  185:725,1 185]) 

addjine(sys,[  1 265,740: 1 305,740: 1 305, 1 15: 1 475, 115]) 

addjine(sys,[  1 265,760: 1 3 1 5,760: 1 3 1 5,370: 1 505,370] ) 

addjine(sys,[2075,450:2085,450:2085, 1005: 1 1 80,995]) 

addjine(sys.[1220,965:1220,945:1310,945]) 

addjine(sys,[  1 265,820: 1 275,820: 1 275,9 1 0:680,9 1 0:680, 1 095 :725, 1 095]) 

addjine(sys,[  1 500,900: 1 5 1 0,900: 1 5 1 0,835 : 1 335,835 : 1 335,500: 1 465,500: 1465,490: 1505,490]) 

addjine(sys,[  1 500,890: 1 500,840: 1 325,840: 1 325,245 : 1 455,245 : 1 455,235 : 1475,235]) 

addjine(sys,[  1 500,940: 1 500, 1 0 1 0: 1 230, 1010:1 230, 1 290: 1 270, 1 290]) 

add_line(sys,[630,270: 1 100,270: 1 1 10,820]) 

add_line(sys,[780,760:780,895: 13 10,895]) 

addjine(sys,[1090,760:1090,685:1555,685]) 

addjine(sys,[  1 285,685: 1 285,430: 1505,430]) 

addjine(sys,[1285.450:1285,175:1475,175]) 

addjine(sys,[645,760:645,l  155:725,1 155]) 

addjine(sys,[125,760:125,l  125:225,1 125]) 

addjine(sys,[  1 095,895: 1095, 1230: 1 270, 1 230]) 

addjine(sys,[  1095, 1 155: 1 095, 1 105: 17 10, 1 105: 1710, 1 160: 1750, 1 160]) 

addjine(sys,[795,225:l  125,225:1 125,85:1475,85]) 

addjine(sys,[l  125,225:1 125,340:1505,340]) 

addjine(sys,[l  125,340:1 125,595:1555,595]) 

addjine(sys,[600,330:600, 335:650,335]) 

add_line(sys,(600,620:205,620:205, 1015:1 050, 10 1 5: 1 050, 1 140: 1 270, 1 140]) 
add_line(sys,[1050, 1075: 1050, 1045: 1740,1045: 1750, 1070]) 
add_line(sys,(  1 440,920: 1 450,920]) 
addjine(sys,[270,960:190,960:190, 1095:225,1095]) 
addjine(sys,[370, 1040:370,960:330,960]) 
addjine(sys,[370, 1 1 80,370, 1 373 : 1 200, 1 373 : 1 200,995] ) 
add_line(sys,[370,1060:385,1060:385,1030:450,1030]) 
addjine(sys,[370, 1080:395, 1080:405, 1060]) 
addjine(sys,[370, 1100:465,1100:465,1085:485,1085]) 
add_line(sys,[370,l  160:395,1 160]) 
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addjine(sys,[370.1120;415.ll20]) 
addjine(sys,[370, 1 140;500. 1 140]) 
addjine(sys,[600,620;205,620;205, 1035;225, 1035]) 
add_line(sys,[  1265,800;  1285,800;  1285,925;60.925;60, 1065;225, 1065]) 
addjine(sys,[180,l  155;225,1 155]) 

add_l  me(sys,[  1 500,920;  1 570,920;  1 570, 1 385;2 1 5, 1 385  ;225, 1185]) 

addjine(sys,(770,980;690,980;690,l  125;725,1 125]) 

add_line(sys,(870,1070;870,980;830,980]) 

addjine(sys.[715,1015;725,1065]) 

addjine(sys,[870, 121 0;870, 1330;  1 220, 1 330;  1 220,995]) 

addjine(sys.[870,1090;885,1090;885,1055;980,1055]) 

add_line(sys,[870, 1 1 10;900, 1 1 10;900, 1075  ;920, 1075]) 

addjine(sys,[1500,930;1515,930;1515,1035;695,1035;695,1215;725,1215]) 

addjine(sys,[870,l  130;965,1 130;975,1 105]) 

add_line(sys.[870,l  150;940,1 150]) 

addjine(sys,[870,l  190;890,1 190]) 

add_line(sys,[870, 1 170;  10 15, 1 170]) 

addjine(sys,[  1 3 15. 1075;  1 255, 1075;  1255, 1 200;  1270, 1 200]) 

addjine(sys.[1415,1145;1415,1075;1375,1075]) 

addjine(sys.[1415,1285;1415,1335;1240,1335;1240,995]) 

addjine(sys,[l  195, 1260;  1270, 1260]) 

addjine(sys,[1265,840;1280,840;1280,l  1 15;1260,1 1 15;1270,1 170]) 
addjine(sys.[1415,1165;1430,1165;1430.1125;1510,1125]) 
add_line(sys,[  1 4 1 5, 1 1 85 ;  1 440, 1185;!  440, 1 1 45 ;  1 460, 1 145]) 
addjine(sys.[1415,1205;1445.1205;1445,1185;1510,1185]) 
add_line(sys,[1415,1225;1455.1225]) 
add_l  ine(sy  s,[  1 4 1 5, 1 265 ;  1 455 , 1 265 ]) 
addjine(sys,[1415,1245;1585,1245]) 
add_line(sys,[1795,975;1735.975;1735,l  130;1750,1 130]) 
add_line(sys.(  1895,1 075;  1 895,975;  1 855,975]) 

addjine(sys.[1895,1215;1905,1215;1905,1240;2190,1240;2190.1030;1260,1030;1260,995]) 

addjine(sys.[1895.1095;1910,1095;1910,1065;2010,1065]) 

addjine(sys.[  1895,1 1 15;  1925,1 1 15;  1925, 1090;  1955, 1090]) 

add  Jine(sys.[  1 895, 1 135;2020, 1 135;2020, 1 105;2040, 1 105]) 

addjine(sys.[  1895,1 195;  1915,1 195]) 

add_line(sys,[1895,1155;1905,1155]) 

add_line(sys,[  1 895, 1 1 75;2045, 1 1 75]) 

addj  me(sys.[  1 500,950;  1 700,950;  1 700, 1 220;  1 750, 1220]) 

add_line(sys,[  1690,1 190;  1750,1 190]) 

add_line(sys,[1265,860;1720,860;1720,l  100;1750.1 100]) 

add_line(sys,[1600,545;1540,545;1540.655;1555,655]) 

addjine(sys,[  1700,600;  17 15,600;  17 15.545;1660,545]) 

addjine(sys,(  1 530,285;  1 470,285 ;  1 470,400;  1 505,400]) 

addjine(sys,[  1 650,345;  1 660,345 ;  1 660,285;  1 590,285]) 

add_line(sys.[1525,30;1465,30;1475,145]) 

add_line(sys,[  1 620,90;  1 625,90;  1625,30;  1585,30]) 

add_line(sys,[  1620,1 10;  1645,1 10;1645,80;1745,80]) 

addjine(sys,[  1 620, 130;  1 650, 1 30;  1 650, 100;  1 690, 100]) 

addjine(sys,[  1 620, 150;  1 660, 1 50;  1 660, 130;  1750, 1 30]) 

addjine(sys,[  1620,2 10;  1645,2 10]) 

add_line(sys.[  1620, 190;  1775,190]) 

addjine(sys,[  1 620, 170;  1 665, 1 70;  1 665, 1 60;  1 690, 1 60]) 

addjine(sys.[  1 620,230;  1 640,230;  1 640,250;  1 905,250;  1 905,440;2035,440]) 

add_line(sys,[  1 650,365;  1 665,365;  1665,340;  1 740,340]) 

addjine(sys,(  1650,385;  1680,385;1690,365]) 
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addjine(sys,[1650,405;1755,405;1755,380:1775.380]) 
add_line(sys,[  1 650,425;  1700,425;  1700,420;  1775,420]) 
add_line(sys,[  1 650,465;  1705,465]) 
add_line(sys,[  1 650,445;  1 835,445]) 

add_line(sys,[1650,485;1665,485;1665,505;1950,505;1950,450;2035,450]) 

addjine(sys,[1700,620;1740,620;1740,585;1815.585]) 

addjine(sys,[1700,640;1745,640;1755,605]) 

addjine(sys,[1700,660;1760,660;1760,635;1830,635]) 

addjine(sys,[1700,680;1715,680;1715,670;  1780,670]) 

addjine(sys,(  1 700,700;  1 865,700]) 

addjine(sys,[  1700,720;  1730,720]) 

addjine(sys,[1700,740;1720,740;1720,770;2015,770;2015,460;2035,460]) 

addjine(sys,[1265,780;1360,780;  1360,625;  1555,625]) 

addjine(sys,[1475,715;1555,715]) 

add_line(sys,[  1450,460;  1505,460]) 

addjine(sys,[  1445,205;  1475,205]) 

addjine(sys,[  1 500,9 10;  1 520,9 10;  1 520,745 ;  1 555,745]) 

drawnow 

%  Return  any  arguments, 
if  (nargin  I  nargout) 

%  Must  use  feval  here  to  access  system  in  memory 
if  (nargin  >  3) 

if  (flag  —  0) 

eval([’[ret,xO,str,ts,xts]=’,sys,'(t,x,u,flag);']) 

else 

eval([’ret  =',  sys,'(t,x,u,flag);']) 
end 
else 

[ret,xO,str,ts,xts]  =  feval(sys); 
end 

else 

drawnow  %  Flash  up  the  model  and  execute  load  callback 
end 
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function  r=lnchtram(u) 

^  ^  9)1  }|(  iK  « :|c  *  :4c  *  9k  3<c  4(  »t(  *  9fc  ^  *  *  *  *  ^  ♦  *  *  *  *  >k  s|c  :fi «  *  9k  ♦  *  *  9|c 


%  launchtram.m 

%  Used  in  BLOCK:Launch_multiple 
% 


%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 
%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%  Last  Updated:  14  SEP  95 
% 


%  Function:  This  function  calculates  the  trajectory  and  velocity  of  the 
%  expendable  when  it  is  launched  and  is  still  in  the  launch  canister. 

%  Once  the  global  time  reaches 

%  the  launch  time,  the  position  and  velocity  of  the  aircraft 

%  are  used  to  calculate  the  trajectory  for  the  expendable  using  the 

%  expendable  characteristics.  This  is  done  using  ODE23  in  the  simulation 
%  so  again,  a  global  variable  (onceitl)  is  used  to  prevent  the  calculation 
%  from  happening  twice.  The  results  are  stored  in  global  variables 
%  exppvx(l-7),exppvy(l-7),exppvz(I-7).  No  noise  is  entered  into  the 
%  expendable  trajectory  in  this  function.  A  flag  is  set  for  each 

%  expendable  from  -1  to  I  when  the  expendable  is  launched. 


% 

^^t9|ej|«:k5k*******:ksk5kJk9k:k**9k*9k5k3k5k5k*Jk**3k*******>kJk**sk**9k5k5k*9k*Jk**3k9k 


%ul=time; 

%u2=distance  check  between  missile  and  AC 

%u3=xac 

%u4=yac 

%u5=zac 

%u6=xvac 

%u7=yvac 

%u8=PhLAngIe 

%u9=Theta_Angle 

%  u  1 0=:ti  me_to_target 

%ul  l=acmtheta 

%ul2=acmphi 

%ul3=Quadrant  launch 

%ul4=tracker 

%ul5=Tduration 

%ul6=R_Thrust 

%ul7=lethaldist 

%ul8=muzzle_vel 

%ul9-25=operationaI  times  feedback 

%u26-32=flags  feedback 
%u33=launchtime  feedback 
%u34=detecttime 
%u35=delay  between  expendables 
%u36=launch  delays  (computation  and  slew) 


%rl-r7=oper_time 

%r8-14=flag 
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%rl5=launchtiine; 
global  exppvxl  exppvyl  exppvzl 
global  exppvx2  exppvyZ  exppvzZ 
global  exppvx3  exppvyS  exppvz3 
global  exppvx4  exppvy4  exppvz4 
global  exppvx5  exppvy5  exppvz5 
global  exppvx6  exppvyb  exppvz6 
global  exppvxT  exppvy?  exppvz? 
global  onceitl  Inchtimem 

xacl=u(3); 

yacl=u(4); 

zacl=u(5); 

zvacl=u(6); 

xvacl=u(7); 

Phi_Angle=u(8)/57.3; 
Theta_Angle=u(9)/57.3; 
time_to_target=u(  10); 
thetamissile_atjaunch=u(l  1); 
phimissile_at Jaunch=u(  1 2); 
quadlaunch=u(13); 
tracker=u(l4); 

Tduration=u(15); 

R^Thrust=u(16); 

!ethaldist=u(17); 

muzzle_vel=u(18); 

detect_time=u(34); 

expdelay=u(35); 

oldlaunch=u(33); 

delays=u(36); 

iaunch_time=.00 1  *round(u{l  )/.001 ); 
quadlaunch=.00 1  *round(u(  1 3)/.00 1 ); 
r(15)=oldlaunch; 

for  number=l:7, 

r(number)=u(  1 8+number); 
r(7+number)=u(25+number); 


if  (u(25+number)==-l)  &  (launch_time>=(detect_time+delays))  &... 
(((tracker==l)&((((u(2)“0)&(r(8)==-l)))l(launch_time>=(oldlaunch+((number-l)*expdelay)))))l.... 
((tracker==0)&(launch_tinie>=quadlaunch+((number-l)*expdelay))))  &  (onceitl(number)==l) 
r(7+number)=  1 ; 
ifu(26)==-l 
r(  1 5)=launch_time; 
end; 

lnchtimem(number)=launch_time; 

if  tracker==l  %Add  time  required  for  expendable  to  get  from  launcher  to  target  to  the  global 

%time  at  which  launch  occurs  in  order  to  get  time  at  which  expendable  is  operational 
opertime=time_to_target+launch_time; 
else  %  only  have  quadrant  detection 
if  (thetamissile_atJaunch>=0)  &  (thetamissile_atjaunch<  (90/57.3)) 
opertime=launch_time+.  1444; 


243 


else 

opertime=launch_time+.  1443; 
end; 
end; 

r(number)=round(opertime/.001  )*.00 1 ; 
end; 

if  (u(25+number)==-l)  &  (launch_time>=(detect_time+delays))  &... 

(((tracker==l)&((((u(2)==0)&(r(8)==-l)))l(launch_time>=(oldlaunch+((number-l)*expdelay )))))[. 
((tracker==0)&(launch_tinie>=quadlaunch+((number-  l)*expdelay))))  &  (onceitl(number)==0) 

r(7+nuniber)=l; 

ifu(26)==-l 

r(l5)=launch_time; 

end; 


onceitl(number)=l; 

Iaunch_time 

number 

%CalcuIate  Launch  Angle  if  there  is  a  tracker  on-board  the  A/C 
if  tracker==  I 


%Add  time  required  for  expendable  to  get  from  launcher  to  target  to  the  global 
%time  at  which  launch  occurs  in  order  to  get  time  at  which  expendable  is  operational 

opertime=time_to_target+launch_time; 

%CalcuIate  coordinates  in  space  you  wish  to  hit 

x_wish_hit=xacl+lethaIdist*sin(phimissile_atJaunch)*cos(thetamissile_atJaunch); 

y_wish_hit=yacl+lethaldist*sin(phimissile_at_launch)*sin(thetamissile_atjaunch); 

z_wish_hit=zacl+lethaldist*cos(phimissile__atJaunch); 

else 

%  only  have  quadrant  detection 

if  (thetamissiIe_at_launch>=0)  &  (thetamissile_atjaunch<  (90/57.3)) 

PhLAngle=(93. 12/57.3); 

Theta^Angle=(12/57.3); 
opertime=launch_time+.  1456; 
else 

PhLAngIe=(93.12/57.3); 

Theta_AngIe=(135/57.3); 
opertime=launch_time+.  1456; 
end 

end 

%Determine  A/C  position  at  which  expendable  detection  occurs 

launchx=xacl; 
launchy=yacl ; 
launchz=zacl; 
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%Determine  A/C  velocity  at  which  expendable  launch  occurs 

launchvx=xvacl ; 

Iaunchvz=zvaci; 

%Determine  postion  and  velocity  of  expendable  from  time  of 
%launch  to  some  future  time.  Said  future  time  should  be 
%after  the  expected  time  of  missile  intercept  by  expendable 
%or  missile  intercept  of  aircraft. 


%Determine  X  position  of  expendable 
%Expendable  under  thrust 
if  Tduration~=0  &  R_Thrust~=0; 

[txyzT,pvxyzT]=ode23(‘dqxyzt'daunch_time-.001,launch_time-.001+Tduration,[launchx  launchvx  launchy 
0  launchz  launchvz]); 

sizepvxyzT=size(pvxyzT); 

lastxT=pvxyzT(sizepvxyzT(  I ),  I ); 
lastvxT=pvxyzT(sizepvxyzT(  l),2); 

lastyT=pvxyzT(sizepvxyzT(l),3); 
lastvyT=pvxyzT(sizepvxyzT(  1  ),4); 

lastzT=pvxyzT(sizepvxyzT(  1  ),5); 
lastvzT=pvxyzT(sizepvxyzT(  1  ),6); 

!asttxyzT=max(txyzT); 

%Determine  if  X,  Y,  or  Z  velocity  after  thrust  is  negative 
%If  X,  Y,  or  Z  velocity  is  negative,  you  will  make  it  and 
%and  the  initial  position  of  the  nonthrust  phase  positive. 

%If  X,  Y,  or  Z  velocity  is  positive  already,  this  will  simply 

%multiply  the  initial  position  and  velocity  of  the 

%nonthrust  phase  by  1. 

posnegx=sign(lastvxT); 

lastxT=:lastxT.*posnegx; 

lastvxT=lastvxT.*posnegx; 

posnegy=sign(lastvyT); 

lastyT=lastyT.*posnegy; 

lastvyT=lastvyT.*posnegy; 

posnegz=sign(lastvzT); 
lastzT=lastzT.'‘'posnegz; 
lastvzT=lastvzT.  *posnegz; 

end; 

%ExpendabIe  without  thrust 

%Define  variables  in  ODE23  integraton  step  below  if  there  is  no 
%thrust  on  expendable  after  it  is  launched, 
if  Tduration==0 1  R_Thrust==0; 

lasttxyzT=launch_time-.001 ; 


245 


lastxT=Iaunchx; 

lastyT=launchy; 

lastzT=Iaunchz; 

lastvxT=:Iaunchvx+muzzle_vel*sin(PhLAngle)*cos(Theta_Angle); 

IastvyT=muzzle_vel*sin(Phi_AngIe)*sin(Theta_Angle); 

lastvzT=launchvz+muzzIe_vel*cos(PhLAngle); 

%Determine  if  X,Y,  or  Z  velocity  is  negative.  If  so,  make  it  and  the  initial 

%position  positive  to  afford  proper  integration. 

posnegx=sign(IastvxT); 

posnegy=sign(lastvyT); 

posnegz=sign(lastvzT); 

lastxT=IastxT.*posnegx; 
lastvxT=lastvxT.  *posnegx; 

lastyT=lastyT.*posnegy; 
lastvyT=lastvyT.  *posnegy ; 

lastzT=lastzT.*posnegz; 

lastvzT=lastvzT.*posnegz; 

end; 

[txyzNT,pvxyzNT]=ode23('dqxyz',lasttxyzT,iasttxyzT4'.2,[lastxT,lastvxT,lastyT,IastvyT,IastzT,lastvzT]); 

%Multiply  position  and  velocity  after  thrust  by  posneg 
%correction  factor  above  to  return  position  and  velocity 
%in  the  nonthrust  phase  back  to  their  proper  direction. 
pvxyzNT(:,  1  )=pvxyzNT(:,  i  ).*posnegx; 
pvxyzNT(:,2)=pvxyzNT(:,2).*posnegx; 

pvxyzNT(:,3)=pvxyzNT(:,3).*posnegy; 

pvxyzNT(:,4)=pvxyzNT(:,4).*posnegy; 

pvxyzNT(:,5)=pvxyzNT(:,5).*posnegz; 

pvxyzNT(:,6)=pvxyzNT(:,6).*posnegz; 

%If  Thrust  sphere  has  thrust.  Remove  repeated  data  from  txNT  and  pvxNT  data 
if  Tduration-=0  I  R_Thrust~=0; 
txyzNT(  !)=[]; 
pvxyzNTd, :)=[]; 
end 

txyz=[txyzT;txy  zNT] ; 
pvxyz=[pvxyzT;pvxyzNT]; 

txyz=txyz'; 

pvxyz=pvxyz'; 

exppvx=[txyz;pvxyz(  1 :2,:)] ; 
expp  vy =[txy  z;p  vxy  z(3 :4, : )  ] ; 
exppvz=[txyz;pvxyz(5:6,:)]; 
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% 

if  number  ==l 

exppvxl=exppvx; 

clseif  number  —2 

exppvx2=exppvx; 

elseif  number  =3 

exppvx3=exppvx; 

elseif  number  =4 

exppvx4=exppvx; 

elseif  number  =5 

exppvx5=exppvx; 

elseif  number  —6 

exppvx6=exppvx; 

elseif  number  =7 

exppvx7=exppvx; 

end; 


exppvyl=exppvy; 

exppvy2=exppvy; 

exppvy3=exppvy; 

exppvy4=exppvy; 

exppvy5=exppvy; 

exppvy6=exppvy; 

exppvy7=exppvy; 


exppvzl=exppvz; 

exppvz2=exppvz; 

exppvz3=exppvz; 

exppvz4=exppvz; 

exppvz5=exppvz; 

exppvz6=exppvz; 

exppvz7=exppvz; 


r(number)=round(opertime/.001)*.001; 


end 

end 
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function  r=gtoptram(u) 


%  gtoptram.m 

%  Used  in  BLOCK:Go_operationaLmultiple 


%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 

%  Last  Updated:  14  SEP  95 
% 

%  Function:  This  function  calculates  the  trajectory  and  velocity  of  the 
%  expendable  once  it  is  operational.  Once  the  global  time  reaches 
%  the  operational  time,  the  position  and  velocity  of  the  expendable 

%  are  used  to  calculate  the  trajectory  for  the  expendable  using  the  new 

%  expendable  characteristics.  This  is  done  using  ODE23  in  the  simulation 
%  so  again,  a  global  variable  (onceito)  is  used  to  prevent  the  calculation 
%  from  happening  twice.  The  results  are  stored  in  global  variables 
%  exppvxopr(  1  -7),exppvyopr(  I  -7),expp  vzopr(  1  -7). 

%  No  noise  is  entered  into  the  expendable  trajectory  in  this  function. 

%  A  flag  is  set  from  -1  to  1  for  each  expendable  when  it  goes 
%  operational  and  from  1  to  100  when  it  is  no  longer  operational. 


%ul=time 

%u2-8=operational  time 
%u9-50=exp  x,vx,y,vy,z,vz 
%u5 1  =opertime_duration 
%u52-58=flag 


%rl-7=flags 

global  exppvxoprl  exppvyoprl  exppvzoprl 
global  exppvxopr2  exppvyopr2  exppvzopr2 
global  exppvxoprS  exppvyopr3  exppvzopr3 
global  exppvxopr4  exppvyopr4  exppvzopr4 
global  exppvxoprS  exppvyoprS  exppvzoprS 
global  exppvxoprb  exppvyoprb  exppvzoprb 
global  exppvxopr7  exppvyopr7  exppvzopr7 
global  onceito 


oper_duration=u(5 1 ); 
timer=.00 1  *round(u(  1  )/.00 1 ); 


for  number=l:7, 
r(number)=u(5 1+number); 
opertime=u(number+ 1 ); 
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if  timer=:=(.00 1  *round((opertime+oper_duration)/.00 1 )) 
r(nuinber)=lOO; 
end; 

if  (timer==opertime)  &  (onceito(number)==I) 

r(number)=l; 

end; 

if  (timer==opertime)  &  (onceito(number)==0) 

onceito(number)=l; 

timer 

number 

operxexp=u(9+(number- 1  )*6); 
opervxexp=:u(  1 0+(number- 1  )*6); 
operyexp=u(I  l'f(number-l)*6); 
opervyexp=u(  1 2+(number- 1  )*6); 
operzexp=u(  1 3+(number- 1  )*6); 
opervzexp=u(  14+(number- 1)*6); 

%Determine  x»  y,  &  z  position  and  velocity  of  expendable  after  it  is  operational 

%Determine  if  x,  y,  or  z  velocity  after  expendable  is 
%operationaI  is  negative 

%If  x,y,  or  z  velocity  is  negative,  you  will  make  it 
%and  the  initial  position  positive. 

%If  X,  y,  or  z  velocity  is  already  positive,  this  will  simply 
%multiply  the  initial  position  and  velocity  of  the  by  1 
posnegxopr=sign(opervxexp); 
operxexp=operxexp.*posnegxopr; 
opervxexp=opervxexp.*posnegxopr; 

posnegyopr=sign(opervyexp); 
operyexp=operyexp.*posnegyopr, 
opervyexp=opervyexp.  *posnegyopr; 

posnegzopr=sign(opervzexp); 
operzexp=operzexp.  *  posnegzopr; 
opervzexp=opervzexp.  *pos  negzopr ; 

[txyz_opr,pvxyz_opr]=ode23(’dqxyzopr’,opertime-.001,opertime- 

.001+oper_duration,[operxexp,opervxexp,operyexp,opervyexp,oper2exp,opervzexp]); 

^Multiply  position  and  velocity  after  thrust  by  posneg 
%correction  factor  above  to  return  position  and  velocity 
%in  the  nonthrust  phase  back  to  their  proper  direction. 
pvxyz_opr(:,l)=pvxyz_opr(:,l).*posnegxopr; 
pvxyz_opr(:,2)=pvxyz_opr(:,2).*posnegxopr; 

pvxyz_opr(:,3)=pvxyz_opr(:,3).*posnegyopr; 

pvxyz_opr(:,4)=pvxyz_opr(:,4).*posnegyopr; 

p  vxy  z_opr( :  ,5  )=p  vxy  z_opr( :  ,5 ) .  *posnegzopr ; 
pvxyz_opr(:,6)=:pvxyz_opr(:,6).*posnegzopr; 

%If  integration  routine  is  unable  to  converge  resulting  in  the  attempted 
%integration  time  steps  taken  by  ode23  converging  to  the  same  value,  take  all 
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%of  the  data  after  the  time  at  which  ode23  can’t  converge  and  throw  it  out. 
%Any  values  matlab  needs  for  a  time  after  the  data  you  threw  out  will  be 
%linearly  extrapolated  using  the  last  two  good  data  points 
sizetxyz_opr=size(txyz_opr); 
xyz=l; 

while  xy  z<sizetxy  z„opr(  1 , 1 )- 1 ; 

if  abs(txyz_opr(xyz)-txyz_opr(xyz+l))<.0(K)01; 
txyz_opr=txyz_opr(  1  :xyz); 
pvxyz_opr=pvxyz_opr(  I  :xyz,:); 
xy  z=sizetxy  z_opr(  U 1 ); 
end 

xyz=:xyz+l; 

end 

txyz_opr=txyz_opr‘; 

pvxyz_opr=pvxyz_opr’; 

timesize=size(txyz_opr,2); 

txy  z_opr(ti  mesize+ 1  )=txy  z_opr(timesize)+25 ; 

pvxyz_opr(  1 :6,timesize+ 1  )=p  vxyz_opr(  1 :6,timesize); 

exppvxopr=[txyz_opr;pvxyz_opr(  1 :2,:)]; 
exppvy  opn=[txy  z_opr;p  vxy  z_opr(3 :4,:)] ; 
exppvzopr=[txyz_opr;p  vxyz_opr(5 :6,:)] ; 


if  number  ==l 
exppvxopr  1  =exppvxopr; 
elseif  number  —2 
exppvxopr2=exppvxopr; 
elseif  number  —3 
exppvxopr3=exppvxopr; 
elseif  number  =4 
exppvxopr4=exppvxopr; 
elseif  number  =5 
exppvxopr5=exppvxopr; 
elseif  number  =6 
exppvxopr6=exppvxopr; 
elseif  number  =7 
exppvxopr7=exppvxopr; 
end; 


exppvyopr  1  =exppvyopr; 
exppvyopr2=exppvyopr; 
exppvyopr3=exppvyopr; 
exppvyopr4=exppvyopr; 
exppvyopr5=exppvyopr; 
exppvyopr6=exppvyopr; 
exppvyopr7=exppvyopr; 


expp  vzopr  1  =expp  vzopr; 
exppvzopr2=exppvzopr; 
exppvzopr3=exppvzopr; 
exppvzopr4=expp  vzopr; 
exppvzopr5=exppvzopr; 
exppvzopr6=exppvzopr; 
exppvzopr7=exppvzopr; 


end; 

end; 
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function  r=expposl(u) 


%  expposl.m 

%  Used  in  BLOCK:Expendablel 


%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 
%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%  Last  Updated:  14  SEP  95 
% 

%  Function:  This  function  return  the  position  and  velocity  of  the 
%  expendable  during  the  time  between  launch  and  when  it  goes 
%  operational  (if  statement  #1)  and  during  the  time  it  is 

%  operational  (if  statement  #2).  It  does  so  by  interpolating 

%  from  the  global  look-up  tables  (exppvy  and  exppvyopr) 

%  generated  in  InchtraJ.m  and  gtoptraj.m 


(^*****3|e**5|e*=Je********  ******♦********♦****♦♦♦*♦*****★****★** 


%ul=operationaI  flag  (-1  before  operational 
%  1  while  operational 

%  '100  afterwards) 

%u2=Iaunch  flag  -1  before  launch  I  after 
%u3=time 

%u4-6=  last  position  change  due  to  wash  noise  (x,y,z) 

%u7-9=noise  wash  standard  deviation; 

%ul0=wash  noise  duration 

global  exppvxoprl  exppvyoprl  exppvzopri 

global  exppvxl  exppvy  I  exppvzl  Inchtimem 

r=:[000000000]; 

time=u(3); 

if  ((time>=lnchtimem(l))  &  (time<=(lnchtimem(l)+u(lO)))) 
noiseadd=[u(7)*randn  u(8)*randn  u(9)*randn]; 
else 

noiseadd=[0  0  0]; 
end; 

r(7)=u(4)+noiseadd(  1 ); 
r(8)=u(5)+noiseadd(2); 
r(9)=u(6)+noiseadd(3); 

if  (u(l)<0)&  (u(2)>0)  %between  launch  and  when  it  goes  operational 
r(  1  )=interp  I  (exppvx  1  ( 1 ,  :),exppvx  1  (2,  :),time)+r(7); 
r(2)=interp  1  (exppvx  1  ( 1 ,:), exppvx  1  (3,:), time); 
r(3)=interp  1  (exppvy  1  ( 1 ,:), exppvy  1  (2,:),time)+r(8); 
r(4)=interp  I  (exppvy  1  ( I ,:), exppvy  1(3,:), time); 
r(5)=interp  1  (exppvzl  ( 1  ,:),exppvz  1  (2,:),time)+r(9); 
r(6)=interp  1  (exppvzl  ( 1  ,:),exppvz  1  (3,:),time); 
elseif  (u(l)>0)&  (u(2)>0)  %  for  duration  of  when  it  is  operational 
r(  1  )=interp  I  (exppvxoprl  ( I  ,:),exppvxopr  l(2,:),time); 
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r(2)=interp  1  (exppvxopr  I  ( 1  ,:),exppvxopr  1  (3,:), time); 
r(3)=interpl(exppvyoprl(l,:),exppvyoprl(2,:),time); 
r(4)=interp  Kexppvyopr  1  ( 1  .:),exppvyopr  1  (3,:), time); 
r(5)=interp  I  (exppvzopr  1  ( 1 ),expp  vzopr  1  (2.:  ),time); 
r(6)=interpl(exppvzoprl(l.:),exppvzoprl(3.:),time); 
end; 


252 


function  r=exppos2(u) 


%  exppos2.m 

%  Used  in  BLOCK:Expendable2 


%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%  Last  Updated:  14  SEP  95 


%  Function:  This  function  return  the  position  and  velocity  of  the 
%  expendable  during  the  time  between  launch  and  when  it  goes 
%  operational  (if  statement  #1)  and  during  the  time  it  is 

%  operational  (if  statement  #2).  It  does  so  by  interpolating 

%  from  the  global  look-up  tables  (exppvy  and  exppvyopr) 

%  generated  in  Inchtraj.m  and  gtoptraj.m 


^ Die « }|e  9|t  *  ^  3|c  :jt  *  *  :4c  *  *  *  *  4c  ^  >te  He  *  *  ♦  ik  :4c  }|c  34c  ijc  :4c  *  *  *  *  :ic  *  *  *  *  ^ 


%ul=operationaI  flag  (-1  before  operational 
%  1  while  operational 

%  '  100  afterwards) 

%u2=launch  flag  -1  before  launch  1  after 
%u3=time 

%u4-6=  last  position  change  due  to  wash  noise  (x,y,z) 

%u7-9=noise  wash  standard  deviation; 

%u  10= wash  noise  duration 

global  exppvxopr2  exppvyopr2  exppvzopr2 

global  exppvx2  exppvy2  exppvz2  Inchtimem 

r=[0  0  0  0000  0  0]; 

time=u(3); 

if  ((time>=lnchtimem(2))  &  (time<=(lnchtimem(2)+u(l0)))) 
noiseadd=[u(7)*randn  u(8)*randn  u(9)*randn]; 
else 

noiseadd=[0  0  0]; 
end; 

r(7)=u(4)+noiseadd(  1 ); 
r(8)=u(5)+noiseadd(2); 
r(9)=u(6)+noiseadd(3); 

if  (u(l)<0)&  (u(2)>0)  %between  launch  and  when  it  goes  operational 
r(  1  )=interp  1  (exppvx2(  L:),exppvx2(2,:),time)+r(7); 
r(2)=interpl(exppvx2(l,:),exppvx2(3,:),time); 
r(3)=interpl(exppvy2(l,:),exppvy2(2,:),time)+r(8); 
r(4)=interpl(exppvy2(L:),exppvy2(3,:),time); 
r(5)=interpl(exppvz2(L:),exppvz2(2,:),time)+r(9); 
r(6)=interpl(exppvz2(L:),exppvz2(3,:),time); 
elseif  (u(l)>0)&  (u(2)>0)  %  for  duration  of  when  it  is  operational 
r(l)=interpl(exppvxopr2(l,:),exppvxopr2(2,:),time); 
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r(2)=interp  I  (exppvxopr2(  1  ,:),exppvxopr2(3,:),titne); 
r(3)=interp  l(exppvyopr2(  1  ,:),exppvyopr2(2,:),time); 
r(4)=interp  l(exppvyopr2(  1  ,:),exppvyopr2(3,:),time); 
r(5)=interp  1  (exppvzopr2(  1  ,:).exppvzopr2(2,:  ),time); 
r(6)=interpl(exppvzopr2(l,:),exppvzopr2(3,:),time); 
end; 
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function  r=exppos3(u) 


%  exppos3.m 

%  Used  in  BLOCK:Expendable3 


%  Authors:  Capt.  Joe!  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE«95D  Air  Force  Institute  of  Technology 

%  Language:  Matiab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%  Last  Updated:  14  SEP  95 
% 

%  Function:  This  function  return  the  position  and  velocity  of  the 
%  expendable  during  the  time  between  launch  and  when  it  goes 
%  operational  (if  statement  #1)  and  during  the  time  it  is 

%  operational  (if  statement  #2).  It  does  so  by  interpolating 

%  from  the  global  look-up  tables  (exppvy  and  exppvyopr) 

%  generated  in  InchtraJ.m  and  gtoptraj.m 


%ul=operational  flag  (-1  before  operational 
%  1  while  operational 

%  '  100  afterwards) 

%u2=launch  flag  - 1  before  launch  1  after 
%u3=time 

%u4-6=  last  position  change  due  to  wash  noise  (x,y,z) 

%u7-9=noise  wash  standard  deviation; 

%ul0=wash  noise  duration 

global  exppvxopr3  exppvyopr3  exppvzopr3 

global  exppvx3  exppvy3  exppvz3  Inchtimem 

r=[0  0  00  00000]; 

time=u(3); 

if  ((time>=lnchtimem(3))  &  (time<=(Inchtimem(3)-i-u(10)))) 
noiseadd=[u(7)*randn  u(8)*randn  u(9)*randn]; 
else 

noiseadd=[0  0  0]; 
end; 

r(7)=u(4)+noiseadd(  1); 
r(8)=u(5)-i-noiseadd(2); 
r(9)=u(6)+noiseadd(3); 

if  (u(l)<0)&  (u(2)>0)  %between  launch  and  when  it  goes  operational 
r(l)=interpl(exppvx3(l,:),exppvx3(2,:),time)-i-r(7); 
r(2)=interp  1  (exppvx3(  1  ,:),exppvx3(3,:),time); 
r(3)=interpl(exppvy3(l,:),exppvy3(2,:),time)+r(8); 
r(4)=interpl(exppvy3(l,:),exppvy3(3,:),time); 
r(5)=interp  1  (exppvz3(  I  ,:),exppvz3(2,:),time)+r(9); 
r(6)=interpl(exppvz3(l,:),exppvz3(3,:),tirne); 
elseif  (u(l)>0)&  (u(2)>0)  %  for  duration  of  when  it  is  operational 
r(l)=interpl(exppvxopr3(l,:),exppvxopr3(2,:),time); 
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r(2)=interpl(exppvxopr3(l,:),exppvxopr3(3,;),time); 
r(3)=interpl(exppvyopr3(l,:),exppvyopr3(2,:),time); 
r(4)=interpl(exppvyopr3(l,:),exppvyopr3(3,:),time); 
r(5)=interp  I(exppvzopr3(  1  ,:),exppvzopr3(2,:),tinie); 
r(6)=interp  1  (exppvzopr3(  1 , :  ),expp  vzopr3(3 , : ),  time); 
end; 
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function  r=:exppos4(u) 


%  exppos4,m 

%  Used  in  BLOCK:Expendable4 


% 

%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%  Last  Updated:  14  SEP  95 


%  Function:  This  function  return  the  position  and  velocity  of  the 
%  expendable  during  the  time  between  launch  and  when  it  goes 
%  operational  (if  statement  #1)  and  during  the  time  it  is 

%  operational  (if  statement  #2).  It  does  so  by  interpolating 

%  from  the  global  look-up  tables  (exppvy  and  exppvyopr) 

%  generated  in  Inchtraj.m  and  gtoptraj.m 


%ul=operationaI  flag  (-1  before  operational 
%  1  while  operational 

%  MOO  afterwards) 

%u2=launch  flag  -  I  before  launch  1  after 
%u3=time 

%u4-6=  last  position  change  due  to  wash  noise  (x,y,z) 

%u7-9=noise  wash  standard  deviation; 

%u  10=  wash  noise  duration 

global  exppvxopr4  exppvyopr4  exppvzopr4 

global  exppvx4  exppvy4  exppvz4  Inchtimem 

r=[000000000]; 

time=u(3); 

if  ((time>=lnchtimem(4))  &  (time<=(lnchtimem(4)+u(10)))) 
noiseadd=[u(7)*randn  u(8)*randn  u(9)*randn]; 
else 

noiseadd=[0  0  0]; 
end; 

r(7)=u(4)+noiseadd(  I ); 
r(8)=u(5)+noiseadd(2); 
r(9)=u(6)-i-noiseadd(3); 

if  (u(  I  )<0)&  (u(2)>0)  %between  launch  and  when  it  goes  operational 
r(  1  )=interp  I  (exppvx4(  1  ,:),exppvx4(2,:),time)+r(7); 
r(2)=interpl(exppvx4(l,:),exppyx4(3,:),time); 
r(3)=interpl(exppvy4(l,:),exppvy4(2,:),time)+r(8); 
r(4)=interp  1  (exppvy4(  I  ,;),exppvy4(3,:),time); 
r(5)=interpl(exppvz4(l,:),exppvz4(2,:),time)+r(9); 
r(6)=interp  I  (exppvz4(  1  ,:),exppvz4(3,:),time); 
elseif  (u(l)>0)&  (u(2)>0)  %  for  duration  of  when  it  is  operational 
r(l)=interpl(exppvxopr4(l,:),exppvxopr4(2,:),time); 
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r(2)=interpl(exppvxopr4(l,;),exppvxopr4(3,:),time): 

r(3)=interpl(exppvyopr4(l,:),exppvyopr4(2,:),time); 

r(4)=interpl(exppvyopr4(l,:),exppvyopr4(3,:),tinie); 

r(5)=interpl(exppvzopr4(l,:),exppvzopr4(2,:),time); 

r(6)=interpl(exppvzopr4(I,:),exppvzopr4(3,:),time); 

end; 
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function  r=exppos5(u) 


%  expposS.m 

%  Used  in  BLOCK:Expendable5 


%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%  Last  Updated:  14  SEP  95 


%  Function:  This  function  return  the  position  and  velocity  of  the 
%  expendable  during  the  time  between  launch  and  when  it  goes 
%  operational  (if  statement  #1)  and  during  the  time  it  is 

%  operational  (if  statement  #2).  It  does  so  by  interpolating 

%  from  the  global  look-up  tables  (exppvy  and  exppvyopr) 

%  generated  in  InchtraJ.m  and  gtoptraj.m 
% 


************  ******=K***3K*  *♦♦****♦*♦  *********** 


%ul=:operational  flag  (-1  before  operational 
%  I  while  operational 

%  '100  afterwards) 

%u2=launch  flag  -  I  before  launch  1  after 
%u3=time 

%u4-6=  last  position  change  due  to  wash  noise  (x,y,z) 

%u7-9=noise  wash  standard  deviation; 

%ul0=wash  noise  duration 

global  exppvxoprS  exppvyopr5  exppvzoprS 

global  exppvxS  exppvyS  exppvzS  Inchtimem 

r=[0  0  00  00  0  00]; 

time=u(3); 

if  ((time>=lnchtimem(5))  &  (time<=(lnchtimem(5)+u(10)))) 
noiseadd=[u(7)*randn  u(8)*randn  u(9)*randn]; 
else 

noiseadd=[0  0  0]; 
end; 

r(7)=u(4)+noiseadd(  1 ); 
r(8)=u(5)+noiseadd(2); 
r(9)=u(6)+noiseadd(3); 

if  (u(l)<0)&  (u(2)>0)  %between  launch  and  when  it  goes  operational 
r(  1  )=interp  I  (exppvx5(  1  ,:),exppvx5(2,:),time)+r(7); 
r(2)=interp  1  (exppvx5(  1  ,:),exppvx5(3,:),time); 
r(3)=interpl(exppvy5(l,:),exppvy5(2,:),time)+r(8); 
r(4)=interpl(exppvy5(L:),exppvy5(3,:),time); 
r(5)=interpl(exppvz5(L:),exppvz5(2,:),time)+r(9); 
r(6)=interp  I  (exppvz5(  1  ,:),exppvz5(3,:),time); 
elseif  (u(l)>0)&  (u(2)>0)  %  for  duration  of  when  it  is  operational 
r(  1  )=interp  l(exppvxopr5(  1  ,:),exppvxopr5(2,:),tinie); 
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r(2)=interpI(exppvxopr5(l.:),exppvxopr5(3,:),time); 
r(3)=interpI(exppvyopr5(l,:),exppvyopr5(2,:),time); 
r(4)=interp  l(exppvyopr5(  1  ,:),exppvyopr5(3,:),time); 
r(5)=interp  1  (exppvzopr5(  1  ,;),exppvzopr5(2,:  ),time); 
r(6)=interpl  (exppvzopr5(  I  ,:),exppvzopr5(3,:),time): 
end; 
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function  r=exppos6(u) 


%  exppos6.m 

%  Used  in  BLOCK:Expendable6 


%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%  Last  Updated:  14  SEP  95 


%  Function:  This  function  return  the  position  and  velocity  of  the 
%  expendable  during  the  time  between  launch  and  when  it  goes 
%  operational  (if  statement  #1)  and  during  the  time  it  is 

%  operational  (if  statement  #2).  It  does  so  by  interpolating 

%  from  the  global  look-up  tables  (exppvy  and  exppvyopr) 

%  generated  in  InchtraJ.m  and  gtoptraj.m 


%ul=operational  flag  (-1  before  operational 
%  I  while  operational 

%  '  100  afterwards) 

%u2=launch  flag  - 1  before  launch  I  after 
%u3=time 

%u4-6=  last  position  change  due  to  wash  noise  (x,y,z) 

%u7-9=noise  wash  standard  deviation; 

%ul0=wash  noise  duration 

global  exppvxoprb  exppvyoprb  exppvzoprb 

global  exppvx6  exppvyb  exppvz6  Inchtimem 

r=[0  00  00  0  00  0]; 

time=u(3); 

if  ((time>=lnchtimem(6))  &  (time<=(lnchtimem(6)+u(10)))) 
noiseadd=[u(7)*randn  u(8)*randn  u(9)*randn]; 
else 

noiseadd=[0  0  0]; 
end; 

r(7)=u(4)+noiseadd(  I ); 
r(8)=u(5)+noiseadd(2); 
r(9)=u(6)+noiseadd(3); 

if  (u(l)<0)&  (u(2)>0)  %between  launch  and  when  it  goes  operational 
r(l)=interpl(exppvx6(l,:),exppvx6(2,:),time)+r(7); 
r(2)=interpl(exppvx6(l,:),exppvx6(3,:),time); 
r(3)=interpl(exppvy6(l,:),exppvy6(2,:),time)+r(8); 
r(4)=interpl(exppvy6(l,:),exppvy6(3,:).time); 
r(5)=interp  1  (exppvz6(  1  ,:),exppvz6(2,:),time)+r(9); 
r(6)=interpl(exppvz6(L:),exppvz6(3,:),time); 
elseif  (u(l)>0)&  (u(2)>0)  %  for  duration  of  when  it  is  operational 
r(  I  )=interp  1  (exppvxopr6(  I  ,:),exppvxopr6(2,:),time); 
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r(2)=interpl(exppvxopr6(l,:),exppvxopr6(3,:),time); 
r(3)=i  nterp  1  (expp  vyopr6(  1  ,:),expp  vyopr6(2, ;  ),time): 
r(4)=interp  l(exppvyopr6(  1  ,:).exppvyopr6(3,:),time); 
r(5)=interpl(exppvzopr6(l,:),exppv2opr6(2,:),time); 
r(6)=interp  1  (exppvzopr6(  1  ,:),exppvzopr6(3 , :  ),time): 
end; 
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function  r=exppos7(u) 


%  exppos7.m 

%  Used  in  BL0CK:Expendable7 


%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%  Last  Updated:  14  SEP  95 
% 

%  Function:  This  function  return  the  position  and  velocity  of  the 
%  expendable  during  the  time  between  launch  and  when  it  goes 
%  operational  (if  statement  #1)  and  during  the  time  it  is 

%  operational  (if  statement  #2).  It  does  so  by  interpolating 

%  from  the  global  look-up  tables  (exppvy  and  exppvyopr) 

%  generated  in  Inchtraj.m  and  gtoptraj.m 


%ul=operational  flag  (-1  before  operational 
%  I  while  operational 

%  MOO  afterwards) 

%u2=launch  flag  - 1  before  launch  1  after 
%u3=time 

%u4-6=  last  position  change  due  to  wash  noise  (x,y,z) 

%u7-9=noise  wash  standard  deviation; 

%ulO=wash  noise  duration 

global  exppvxopr7  exppvyopr7  exppvzopr7 

global  exppvx7  exppvy7  exppvz7  Inchtimem 

r=:[00  000  00  00]; 

time=u(3); 

if  ((time>=lnchtimem(7))  Sc  (time<=(lnchtimem(7)+u(10)))) 
noiseadd=[u(7)*randn  u(8)*randn  u(9)*randn]; 
else . 

noiseadd=[0  0  0]; 
end; 

r(7)=u(4)-i-noiseadd(  1); 
r(8)=u(5)+noiseadd(2); 
r(9)=u(6)+noiseadd(3); 

if  (u(l)<0)&  (u(2)>0)  %between  launch  and  when  it  goes  operational 
r(  1  )=interp  1  (exppvx7(  1  ,:),exppvx7(2,:),time)+r(7); 
r(2)=interp  I  (exppvx7(  1 ,  :),exppvx7(3,:),time); 
r(3)=interpl(exppvy7(l,:),exppvy7(2,:),time)+r(8); 
r(4)=interpl(exppvy7(l,:),exppvy7(3,:),time); 
r(5)=interpI(exppvz7(L:),exppvz7(2,:),time)+r(9); 
r(6)=interpl(exppvz7(L:),exppvz7(3,:),time); 
elseif  (u(l)>0)&  (u(2)>0)  %  for  duration  of  when  it  is  operational 
r(  l)=interpl(exppvxopr7(  L:),exppvxopr7(2,:),time); 
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r(2)=interpl(exppvxopr7(l,:),exppvxopr7(3,:),time); 
r(3)=interpl(exppvyopr7(l,:),exppvyopr7(2,:),time); 
r(4)=interp  1  (exppvyopr7(  1  ,:),exppvyopr7(3,:).time): 
r(5)=interpl(exppvzopr7(l,:),exppvzopr7(2,:),titne); 
r(6)=interpl(exppvzopr7(l.:),exppvzopr7(3,:),time); 
end; 
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%  getit.m 


% 

%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 
%  Last  Updated:  14  SEP  95 


%  Function:  This  function  is  used  to  calculate  the  look-up 
%  tables  for  phi  launch,  theta  launch,  and  time-to-target 
%  for  the  different  expendables.  Since  the  equations  are  so  complex, 
%  it  was  impossible  to  implement  them  real-time  into  the  simulation, 
%  The  goal  of  the  simulation  was  to  be  able  to  place  the  expendable 
%  at  a  certain  location  on  the  sphere  around  the  aircraft.  This 
%  point  was  referenced  using  phi  and  alpha.  This  was  very  difficult 
%  because  the  magnitude  and  duration  of  the  thrust  could  vary, 

%  phi  and  theta  could  vary,  and  so  could  the  time  to  get  it  to 
%  the  point.  The  result  was  a  very  complex  dynamic  equation. 

%  It  was  determined  that  since  99%  of  the  missiles  entered 
%  the  sphere  within  1.5  degrees  of  phi=93, 12.  The  target  phi 
%  was  set  constant  at  93. 12.  Obviously  this  is  not  the  ideal 
%  situation  to  maximize  the  probability  of  hitting  the  missile 
%  but  it  was  necessary  in  order  to  continue  with  the  simulation. 

%  With  Phi  constant,  theta  and  time-to-target  were  the  only  true 
%  variables  and  the  launch  phi,  and  theta  and  time-to-target 
%  could  be  calculated  using  the  ODE23  function.  Since  the 
%  climb  angle  and  aircraft  velocity  were  assumed  constant, 

%  these  could  be  computed  prior  to  simulation  and  put  in  a 
%  look-up  table.  This  greatly  decreased  the  run-time  of  the 
%  simulation 


%. 


clear 

%Define  properties  of  sphere  sphere 

CD_sphere=.l5; 

S_sphere=.196; 

W_sphere=lO; 

Rho_ambient=.002378; 

global  R_Thrust  PhLAngle  Theta_AngIe; 

global  CD_sphere  S_sphere  W_sphere  Rho_ambient; 

%Define  variables 

%m=mass  of  expendable,  gamma=A/C  flight  path  angle(in  degrees), 
%Vac=veIocity  of  A/C  when  expendable  is  launched  (ft/sec) 
m=W_sphere/32.2; 
gamma=15; 

Vac=258; 

%Define  whether  or  not  expendable  is  under  thrust  after  it  is  launched 
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%by  assigning  proper  values  to  the  following  three  variables: 

%tl=time  of  thrust  burn  (sec),  R_Thrust=thrust  with  which  expendable  is 
%launched(lbOt  muzzIe_vel=velocity  at  which  expendable  leaves  launcher 
%(ft/sec). 
tl=0: 

R_Thrust=0; 

muzzle_vel=700; 

%Convert  degrees  to  radians 
gammarad=gamma/57.3 ; 

%Read  input  file 
infid=fopen('inlaunch.txt',’r’); 

(table, count]=fscanf(infid,  '%f ); 
status= fclose(  infid); 

%Open  output  file 
outfid=fopen('outlaunc.txt','w'); 

fprintf(outfid,'phiJnitial  theta Jnitial  phi  theta  t  xdif  ydif  zdif\n'); 

%Assign  each  value  from  the  input  "table”  data  to  a  variable 
%Each  pass  through  the  "for"  loop  reads  in  "sizetable(I)"  variables 
sizetable=size(table); 

jh=0; 

for  pass=  1 :3:sizetable(  1 ) 

phitargetjnitial=table(pass); 
thetatarget  Jnitial=table(pass+ 1 ); 
rtargetJnitial=table(pass+2); 

%Define  initial  guesses  for  launcher  variables 

%t=actual  duration  of  expendable  flight  prior  to  intercepting  target  point, 

%phi=angle  (in  degrees)  measured  from  positive  z  axis  pointing  up  showing 

%where  laucher  is  pointed,  theta=angle  (in  degrees)  measured  from  positive 

%x  axis  pointing  forward  showing  where  laucher  is  pointed. 

t=.435; 

tinitial=t; 

phi=phitargetjnitial; 

theta=thetatarget__initial; 

phidif=100000; 
thetadif=  100000; 
rdif=l00000; 
xdif=  100000; 
ydif=:l00000; 
zdif=l00000; 

%Define  the  maximum  deviation  of  phi,  theta,  and  range  of  the  point  in  space  the 

%expendable  hits  relative  to  where  you  wanted  it  to  hit 

phLtollerance=.2; 

theta_tollerance=:.2; 

r_toIlerance=.2; 

%Itterate  to  find  required  phi,  theta,  and  t  of  expendable  launcher 
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count=  1 ; 

while  abs(phidif)>phi_toilerance  1  abs(thetadiO>theta_tolIerance  1  abs(rdif)>r_tollerance 

%Convert  degrees  to  radians 

phirad=phi/57.3; 

the  tarad=the  ta/5  7 . 3 ; 

%Defme  phirad  and  thetarad  as  being  equal  to  two  other  variables.  This  was 
%done  because  mess.m  uses  these  variable  names  in  dqx.m,  dqxt.m,  etc  and  I 
%was  too  lazy  to  change  the  variable  names  in  this  file  also 
Phi_Angle=phirad; 

Theta_AngIe=thetarad; 

phitargetJrad=phitargetJnitial/57.3; 

thetatargetJrad=thetatargetJnitial/57.3; 

%Determine  X,Y,  &  Z  position  of  target  point  in  space  relative  to  where 
%A/C  launched  expendable 

xtarget_final=rtarget_initiaI.*sin(phitargetJrad).*cos(thetatargetJrad)+Vac*t*cos(gammarad); 

ytarge01nal=rtargetjnitial.*sin(phitargetjrad).’*‘sin(thetatargetjrad); 

2targe01nal=rtarget_initiai.*cos(phitargetJrad)+Vac.*t.*sin(gammarad); 

%Calculate  final  phi,  theta  and  r  for  target 

rtarget_final=((xtarget_finai).'^2+(ytarget_final).''2+(ztarget_final).'^2).'^.5; 

thetatarget_final=atan2(ytarget_rinaI,xtargeLfinal); 

resultxy_target_final=((xtarget_final).^2+(ytarget_final).‘^2).''.5; 

phitarget_fmal=atan2(resultxy_target_final,ztarget_final); 

%Determine  X  position  of  expendable 
^Expendable  under  thrust 
if  tl~=:0  &  R_Thrust'-=0; 

vxinitial=:Vac*cos(gammarad); 

[txT,pvxT]=ode23('dqxt‘,0,tl,[0  vxinitial]); 
sizepvxT=size(pvxT); 
lastxT=p  vxT(sizepvxT(  1 ),  1 ); 
lastvxT=pvxT(sizepvxT(  I  ),2); 
lasttxT=max(txT); 

%Determine  if  X  velocity  after  thrust  is  negative 
%If  X  velocity  is  negative,  you  will  make  it  and 
%and  the  initial  position  of  the  nonthrust  phase  positive. 

%If  X  velocity  is  positive  already,  this  will  simply 
%multiply  the  initial  position  and  velocity  of  the 
%nonthrust  phase  by  1. 
posnegx=sign(lastvxT); 
lastxT=lastxT.*posnegx; 
lastvxT=lastvxT,*posnegx; 

end; 

%Expendable  without  thrust 

%Define  variables  in  ODE23  integraton  step  below  if  there  is  no 
%thrust  on  expendable  after  it  is  launched, 
if  tl==0  I  R_Thrust==0; 
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IasttxT=0; 

IastxT=0; 

lastvxT=:Vac*cos(gammarad)+muzzIe_vel*sin(phirad)*cos(thetarad); 
%Determine  if  X  velocity  is  negative.  If  so,  make  it  and  the  initial 
%position  positive  to  afford  proper  integration. 
posnegx=sign(lastvxT); 
iastxT=IastxT.*posnegx; 

IastvxT=lastvxT.*posnegx; 

end; 

[txNT,pvxNT]=:ode23(’dqxMasttxT,lasttxT+20,[lastxT,lastvxT]); 

%MuItiply  position  and  velocity  after  thrust  by  posneg 
%correction  factor  above  to  return  position  and  velocity 
%in  the  nonthrust  phase  back  to  their  proper  direction. 
pvxNT(:,  I  )=pvxNT{:,  1  ).*posnegx; 
pvxNT(:,2)=pvxNT(:,2).*posnegx; 

%Remove  repeated  data  from  txNT  and  pvxNT  data 

txNT(l)=[]; 

pvxNT(U:)=[]; 

tx=[txT;txNT]; 
pvx=[p  vxT  ;pvxNT] ; 


tx=tx‘; 

pvx=pvx’; 

exppx=[tx;pvx(l,:)]; 

xvelexp=pvx(2,:); 

%Determine  Y  position  of  expendable 
^Expendable  under  thrust 
if  tl-=0  &  R_Thrust'-=0; 


[tyT,pvyT]=ode23Cdqyf,0,tl,[0  0]); 
sizepvyT=size(pvyT); 
lastyT=pvyT(sizepvyT(  I ),  1 ); 
lastvyT=pvyT(sizepvyT(  I  ),2); 
lasttyT=max(tyT); 

%Determine  if  Y  velocity  after  thrust  is  negative 

%If  Y  velocity  is  negative,  you  will  make  it  and 

%and  the  initial  position  of  the  nonthrust  phase  positive. 

%If  Y  velocity  is  positive  already,  this  will  simply 

%multiply  the  initial  position  and  velocity  of  the 

%nonthrust  phase  by  1 . 

posnegy=sign(lastvyT); 

lasty  T=lasty  T.  *posnegy ; 

lastvyT=lastvyT.*posnegy; 

end; 

%Expendable  without  thrust 

%Define  variables  in  ODE23  integraton  step  below  if  there  is  no 
%thrust  on  expendable  after  it  is  launched, 
if  tl==0  I  R_Thrust==0; 
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IasttyT=0; 

IastyT=0; 

lastvyT=muzzle_vel*sin(phirad)*sin(thetarad); 
%Determine  if  Y  velocity  is  negative.  If  so,  make  it  and  the  initial 
%position  positive  to  afford  proper  integration, 
posnegy=sign(IastvyT); 
lastyT=lastyT.*posnegy; 
lastvyT=lastvyT.*posnegy ; 
end; 

[tyNT,pvyNT]=ode23(’dqy’,lasttyT,lasttyT+20,[lastyT,lastvyT]); 

^Multiply  position  and  velocity  after  thrust  by  posneg 
%correction  factor  above  to  return  position  and  velocity 
%in  the  nonthrust  phase  back  to  their  proper  direction. 
pvyNT(:,l)=pvyNT(:,l).*posnegy; 
pvyNT(:,2)=:pvyNT(:,2).*posnegy; 

%Remove  repeated  data  from  txNT  and  pvxNT  data 

tyNT(l)=(]; 

pvyNT(U:)=[]; 

ty=[tyT;tyNT]; 

pvy=[pvyT;pvyNT]; 


ty=ty’; 

pvy=pvy’; 

exppy=[ty;pvy(l,;)]; 

yveiexp=pvy(2,:); 

%Determine  Z  position  of  expendable 
^Expendable  under  thrust 
if  tl-=0  &  R_Thrust~=0; 

detectvz=Vac*sin(gammarad); 

[tzT,pvzT]=ode23('dqzt',0,tl,[0  detectvz]); 
sizepvzT=size(pvzT); 
lastzT=pvzT(sizepvzT(  1 ).  1 ); 
lastvzT=pvzT(sizepvzT(  I  ),2); 

IasttzT=max(tzT); 

%Determine  if  Y  velocity  after  thrust  is  negative 

%If  Y  velocity  is  negative,  you  will  make  it  and 

%and  the  initial  position  of  the  nonthrust  phase  positive. 

%If  Y  velocity  is  positive  already,  this  will  simply 

%multiply  the  initial  position  and  velocity  of  the 

%nonthrust  phase  by  1. 

posnegz=sign(lastvzT); 

lastzT=lastzT.*posnegz; 

lastvzT=lastvzT.*posnegz; 

end; 

%Expendable  without  thrust 

%Define  variables  in  ODE23  integraton  step  below  if  there  is  no 
%thrust  on  expendable  after  it  is  launched. 
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if  tl==0  I  R_Thrust=0; 
lasttzT=0; 
lastzT=0; 

lastvzT=Vac’^sin(gammaraci)+muz2le_vel*cos(phirad); 
%Determine  if  Z  velocity  is  negative.  If  so,  make  it  and  the  initial 
%position  positive  to  afford  proper  integration. 
posnegz=sign(lastvzT); 
lastzT=:lastzT.  *posnegz; 
lastvzT=:lastvzT.*posnegz; 
end; 

[tzNT,pvzNT]=ode23('dqzMasttzT,lasttzT+20,[lastzT,lastvzT]); 

%MultipIy  position  and  velocity  after  thrust  by  posneg 
%correction  factor  above  to  return  position  and  velocity 
%in  the  nonthrust  phase  back  to  their  proper  direction. 
pvzNT(:,  l)=pvzNT(:,  l).*posnegz; 
pvzNT(:,2)=pvzNT(:,2).*posnegz; 

%Remove  repeated  data  from  txNT  and  pvxNT  data 

tzNT(l)=[]; 

pvzNK  !,:)=[]; 

tz=[tzT;tzNT]; 
pvz=[pvzT  ;p  vzNT] ; 

tz=tz'; 

pvz=pvz'; 

exppz=[tz;pvz(l,:)]; 

zveiexp=pvz(2,:); 

^Calculate  X,  Y,  &  Z  position  at  the  specified  time  t 
xposexp=spline(exppx(l,:),exppx(2,;),t); 
yposexp=spline(exppy(  1  ,:),exppy(2,:),t); 
zposexp=spline(exppz(l,:),exppz(2,:),t); 

%Calculate  difference  between  X,  Y,  &  Z  position  of  expendable  and  X,  Y,  &  Z 
%position  of  target  in  space. 

xdif=xtarget_final-xposexp; 

ydif=ytarget_final-yposexp; 

zdif=ztarget_final-zposexp; 

^Calculate  r,  phi,  &  theta  for  expendable  at  time  t  (phi  &  theta  in  rad) 

rexp=((xposexp).'^2+(yposexp).''2+(2posexp)'^2).''.5; 

thetaexp=atan2(yposexp,xposexp); 

resultxy=((xposexp).^2+(yposexp).^2).'^.5; 

phiexp=atan2(resultxy,zposexp); 

^Convert  radians  to  degrees 
phiexpdeg=phiexp.*57,3; 
thetae  xpdeg=thetaexp.  *57.3; 
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%CaIculate  difference  between  r,  phi  &  theta  for  expendable  and  target  point 
%(angles  in  degrees) 

rdif=rexp-rtarget_final 

phidif=phiexpdeg-(phitarget_final*57.3) 

thetadif=thetaexpdeg-(thetatarget_final*57.3) 

%Define  new  guess  for  phi,  theta,  and  t 
if  count<=20 

if  abs(phidiO>phLtoIlerance; 

phi=phi-abs(phidif); 

end; 

if  abs(thetadiO>theta_tonerance; 

theta=theta-abs(thetadif); 

end; 

if  abs(phidif)<phi_tolIerance  &  abs(thetadif)<theta_toIlerance  &  abs(rdif)>r_toIIerance; 
t=abs((t./rexp).*rtarget_final); 

%t=t+sign(rtarget_final-rexp)*  .000 1 ; 
end; 

elseif  count==20 

phi=phitargetjnitial; 

theta=thetatarget_initiai; 

t=tinitial; 

elseif  count>20  &  count  <=40 

if  abs(phidif)>phLtollerance; 

phi=phi+abs(phidif); 

end; 

if  abs(thetadif)>theta_toIlerance; 

theta=theta+abs(thetadif); 

end; 

if  abs(phidif)<phi__toilerance  &  abs(thetadif)<theta_toIIerance  &  abs(rdif)>r_toI!erance; 
t=abs((t./rexp).*rtarget_final); 

%t=t+sign(rtarget_final-rexp)*.000 1 ; 
end; 

elseif  count  >40  &  count  <=60 

if  abs(phidiO>phLtolIerance; 

phi=phi-(phidif); 

end; 

if  abs(thetadif)>theta_tollerance; 

theta=theta-(thetadif); 

end; 

if  abs(phidiO<phLtoIIerance  &  abs(thetadif)<theta_toIIerance  &  abs(rdit)>r_tollerance; 
t=abs((t./rexp).*rtarget_final); 

%t=t+sign(rtarget_final-rexp)*.0001; 

end; 

elseif  count==60 

phi=phitarget_initial; 

theta=thetatarget_initial; 
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t=tinitial; 

elseif  count>60  «&  count  <=80 

if  abs(phidif)>phLtollerance; 

phi=phi+(phidif); 

end; 

if  abs(thetadif)>theta_toIIerance; 

theta=theta+(thetadif); 

end; 

if  abs(phidif)<phi_tollerance  &  abs(thetadif)<theta_tolIerance  &  abs(rdif)>r_tollerance; 
t=abs{(t./rexp).’‘‘rtarget_final); 

%t=t+sign(rtarget_finaI-rexp)*.000 1 ; 
end; 

else 

phidif=0; 

phi=0; 

thetadif=0; 

theta=0; 

rdif=0; 

t=0; 

end 

completed_in=jh 

count=count+l; 

end 

%Write  final  differences  between  target  and  expendable  to  file 
output=[phitargetJnitial  thetatargetjnitial  phi  theta  t  xdif  ydif  zdif]; 
fprintf(outfid;%  1 1 .3f  % I3.3f  %6.3f  %63f  %6.4f  %6.3f  %6.3f  %6.3f  \n\  output); 

jh=jh-fl; 


end 

status=fclose(outfid); 
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%  decode fl.m 
% 

% 

%  Authors:  Capt.  Joel  Hagan  &  Capt  Brian  Peterson,  USAF 
%  GSE-95D  Air  Force  Institute  of  Technology 

%  Language:  Matlab 

%  Project:  AKKCT  (Aircraft  Kintetic  Kill  Countermeasures  Technology) 

%  Last  Updated:  14  SEP  95 
% 

%  Function:  This  m-file  allows  you  to  easily  extract  the  Probability 
%  of  kills  from  a  series  of  simulation  runs.  This  considers  this 

%  missile  dead  if  it  hit  the  expendable  anywhere.  The  data  from 

%  the  simulation  will  actually  give  a  range  from  0  to  1  for  each 
%  simulation  depending  on  far  from  center  of  the  expendable  the 
%  missile  was  when  it  hit  (i.e.  .1  means  it  hit  near  the  edge  & 

%  I  means  it  hit  very  close  to  center).  With  the  multiple  shot, 

%  the  hit  check  uses  a  radial  distance  from  the  center  of  each  expendable 
%  so  it  may  appear  to  have  hit  multiple  expendables.  While  this  allows 

%  it  to  be  theoretically  possible  for  this  simulation  to  register  a  hit 

%  the  expendable  falls  quickly  in  front  of  the  missile,  but  the  missle 
%  misses  it,  the  expendable  would  have  to  be  failing  far  faster  than 
%  any  which  are  feasible  to  use. 

%  To  use  this  file,  put  the  data  files  in  the  same  directory  as  this  files, 

%  list  them  in  the  infile  variables,  and  specify  how  many  there  are.  All 
%  files  names  in  each  variable  must  be  of  the  same  length. 

% 

clear; 

%  single  expendable  simulations 

infile=[’s580.txt'  ’s581.txt'  ’s582.txt’  ’s583.txt'  ’s584.txt'  ’s585.txt’... 

's590.txt‘  's591.txt'  's592.txt'  ’s593.txt'  ’s594.txt’  's595.txt'... 

’s680.txt’  's68l.txt'  ’s682.txt'  ’s683.txt'  ‘s684.txt'  's685.txt’... 

’s690.txt'  's69l.txt’  ’s692.txt'  ’s693.txt'  ’s694.txt’  ’s695.txf  ]; 
numsingles=24; 

filelengths=8;  ^include  .txt  (4)  characters 
%  multiple  expendable  simulations 

minfile=('t2e6m.txt'  't2e7m.txt'  't2e8m.txf  ’t4e6m.txt’  ’t4e7m.txt'  ’t4e8m.txf  ’t5e6m.txt'  ’t5e7m.txt’ 

't5e8m.txt’]; 

nummults=0; 

filelengthm=9;  %include  .txt  (4)  characters 
if  numsingles>0 
for  i=l:numsingles, 

infid=fopen(infile((i-I)*fileIengths+l:i*filelengths),V); 

[tabIe,count]=fscanf(infid,  '%f ); 

status-fciose(infid); 

misses=0; 

hits=0; 

bad=0; 

row=size(tabie,  1  )/19; 


row; 

table=reshape(table,row,  19); 
for  j=l:row, 
p=:table((j-l)*19+l); 
if  p=:=0 

misses=misses+l; 

elseifp==-l 

bad=bad+l; 

else 

hits=hits+l; 

end; 

end; 

PK(i,l)=hits; 

PK(i,2)=misses; 

PK(i3)=bad; 

PK(i,4)=hits/row; 

end; 

end; 

if  nummults>0 
for  i=l:numniults; 

infid=fopen(minfile((i-l)*fiIelengthm+i:i*fileiengthm),y); 

[mtable,mcount]=fscanf(infid,  ’%f ); 

status=fclose(infid); 

mmisses=0; 

nihits=0; 

mbad=0; 

mrow=si2e(mtabIe,  1  )/49; 

nitabIe=reshape(mtable,49»nirow)’; 

for  j=l:nirow, 
temp=0; 

if  mtable(j,l)==-l 
mbad=mbad+l; 
else  for  k=l:7, 

if  (mtable(j,k)-=0) 
temp=l; 
end; 
end; 

if  temp==0 
mmisses=mmisses+l ; 
else 

mhits=mhits+l; 

end; 

end; 

end; 

PK(i+numsingles,l)=mhits; 

PK(i+numsingles,2)=mmisses; 

PK(i+numsingles,3)=nibad; 

PK(i+numsingles,4)=mhits/mrow; 

end; 

end; 


274 


REPORT  DOCUMENTATION  PAGE 

Form  Approved 

0MB  No.  0704‘013d 

Public  reportinq  burdrn  for  this  collection  of  information  ts  estimated  to  averaqe  1  hour  oer  rnsporse.  including  the  time  for  reviev^ing  instructions,  searching  existing  data  sources, 
gathering  and  maintaining  the  data  needed,  and  completing  and  reviewing  the  collection  of  information.  Send  comments  regarding  this  burden  estim.ite  or  any  Other  aspect  of  this 
collection  of  information,  including  suggestions  for  reducing  this  burden,  to  Washington  Headquarters  Services,  Directorate  tor  ;nformation  Ooerations  and  Reports,  15  Jefferson 
Davis  Highway,  Suite  1204.  Arlington,  VA  22202-4302,  and  to  the  Otfice  of  Management  and  Budget.  Paperwork  Reduction  Protect  (0/04-0 138),  Washington.  DC  20503. 

1.  AGENCY  USE  ONLY  (Leave  blank)  2.  REPORT  DATE  3.  REPORT  TYPE  ANO  DATES  COVE.RED 

December  1995  Technical  Report;  Thesis 

4.  TITLE  AND  SUBTITLE 

A  SYSTEMS  ENGINEERING  APPROACH  TO  AIRCRAFT  KINETIC 

KILL  COUNTERMEASURES  TECHNOLOGY:  DEVELOPMENT 

OP  AN  ACTIVE  AIRCRAFT  DEFENSE  SYSTEM  FOR  THE  C/KC-I35  AIRCRAFT 

5.  FUNDING  NUMBERS 

0.  AUTHOR{S) 

Captain  Mark  Cherry,  Major  Bruce  DeWitt, 

Captain  Christopher  Dusseault,  Captain  Joel  Hagan  j 

Captain  Brian  Peterson  I 

7.  PERFORMING  ORGANIZATION  NA.VIE(S)  AND  AODRESS(£S) 

Air  Force  Institute  of  Technology,  WPAFB  OH  45433-6583 

1 

i 

i 

3.  PE.RFORMING  ORGANIZATION 

REPORT  NUM3SR 

AFIT/GSE/ENG/95D-0 1 

9.  SPONSORING /MONITORING  AGENCY  NAME(S;  AND  ADDRESSEES) 

WL/AAWD-2 

Wright-Patterson  AFB,  OH  45433-7521 

1 

10.  SPONSORING /MONITORING 

AGENCY  REPORT  NUMBER 

n.  SUPPLEMENTARY  NOTES 

12a.  DISTRIBUTION /AVAILABILITY  STATEMENT  j 

J 

I 

Approved  for  public  release;  Distribution  Unlimited  | 

I 

! 

1 

1 

1 

{ 

12b.  OiS^TlJUTiON  CODE 

13.  A3STRACT  mum  200  words)  j 

Modern  Surface  to  Air  Missiles  (SAMs)  present  a  significant  threat  to  today’s  military  and  civilian  aircraft. 
Current  countermeasure  systems  such  as  flares  and  chaff  rely  on  decoying  the  missile  threat  and  do  not  provide 
adequate  protection  against  advanced  computerized  missiles  (Schaffer,  1993:1).  An  aircraft  defense  system  that 
actively  seeks  out  and  defeats  an  inconndng  missile  by  placing  a  physical  barrier  in  the  missile’s  path  offers  a 
promising  alternative  to  current  countermeasures  technology.  This  thesis  reports  the  preliminary  design  of  an 
active  aircraft  defense  system  for  the  protection  of  the  C/KC-135  aircraft  from  SAMs.  The  developed  system 
utilizes  a  kinetic  kill  mechanism  to  protect  the  aircraft  from  shoulder  launched  missiles  while  the  aircraft  is  in 
the  takeoff  and  climb-out  configurations.  Both  smart  anti-missile  expendables  and  dumb  projectile  expendables 
are  evaluated.  The  iterative  Systems  Engineering  approach  is  used  to  narrow  the  solution  set  to  the  optimal 
design.  The  final  outcome  is  the  refined  design  of  two  candidate  aircraft  defense  system  employing  a  kinetic  kill 
mechanism.  Both  systems  utilize  a  modified  ultra-violet  tracker  and  employ  one  of  two  types  of  nets,  one  made 
out  of  Detonation  Cord  and  the  other  made  out  of  Spectra. 


14,  SUBJECT  TERMS  | 

1 

KC-135,  Aircraft  Defense,  Active  Aircraft  Defense,  Kinetic  Kill  | 

j 

j 

13.  NUMBER  OF  PAGES 

475 

15.  PRICE  CODE 

17.  SECURITY  CLASSIFICATION 

OF  REPORT 

UNCLASSIFIED 

18.  SECURITY  CLASSIFICATION 

OF  THIS  PAGE 

UNCLASSIFIED 

19.  SECURITY  CLASSIFICATION 

OF  ABSTRACT 

UNCLASSIFIED 

20.  LIMITATION  OF  ABSTRACT 

UL 

MSN  75^0-01-280-5500 


Standard  i-orm  208  (Rev  2-89) 


